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development of its graduate training program, the School recognized that men and women engaged in 
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therefore, the Research Laboratories for the Engineering Sciences (RLES) was established and assigned the 
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support requirements of the research under way. He is aided by an Academic Advisory Committee made up 
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RLES of the needs and perspectives of the research program. 

In addition to administrative support, RLES is charged with providing certain technical assistance. 
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OF A 
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VOLUME IV: CONDUCTING COLLECTIVE INQUIRY 
PREFACE 

This is one of six Volumes of a report which, collectively, 
is intended to be a Sourcebook for the Design of a Regional 
Environmental Learning System. The report was prepared under 
Contract 300-700-4028 with the Office of Environmental Education 

This six-volume report presumes some background concerning 
the concept of a Regional Environmental Learning System, and 
with environmental education as a whole. Considerable relevant 
background was supplied in Volume 9 of the 4th Quarterly Report 
(A Descriptive Analysis of Environmental Education) and in 
the 5th Quarterly Report (Conceptual Basis for the Design of 
Regional Environmental Learning Systems), both of which are 
available from the Office of Environmental Education. 

Volume 1 contains an Overview of the Sourcebook, with 
short summaries of the other Volumes. 
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VOLUME IV 
CONDUCTING COLLECTIVE INQUIRY 



EXECUTIVE SUMMARY 

As indicated in previous volumes, especially Volumes I and III, Teaming 
about one's environment encompasses a large number of factors, factors like 
resources, conservation, pollution, economics, demography, urban and regional 
planning, technology, and transportation. Understanding all these factors, 
their interrelations, and their implications for planning and managing one's 
future cannot be done alone. Involvement in collective inquiries with other 
participants with a variety of skills, knowledge, experiences, perceptions, 
and values is required. For such inquiries to be efficient and productive, 
means for managing the generation, structuring, communication, and document- 
ation'of ideas are needed, in other words, tools for idea management are needed. 
Through the use of such tools, the process of collective inquiry may enable 
individuals and groups to understand and improve their environments. 

In addition to helping individuals, the process of collective inquiry is 
useful to teachers and others concerned with managing or facilitating learning. 
Collective inquiries can be exceedingly useful for achieving environmental 
education "that synthesizes and integrates pertinent subject matter across 
and between a variety of disciplines". In addition to idea management tools, 
approaches to planning and managing the conduct of collective inquiries are 
needed. 
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Thls volume provides some tools and approaches for conducting collective 
inquiries. Although an attempt is made to provide the reader with enough in- 
formation to carry out an inquiry, the references provide more Information and 
may be referred to if the information provided in this volume needs to be augmentecj,. 

As used here, "approaches to collective inquiries" mean suggestions and ideas 
for planning and managing the process of an inquiry. "Tools" mean particular 
ways to facilitate a particular step in the process. 

COLLECTIVE INQUIRY STEPS 
Why might one want to conduct a collective inquiry? The answer depends" on 
the stage at which a collection of participants is dealing with an environmental 
Issue. For different stages, different purposes are served. Some examples are: 

to raise awareness of environmental issues and problems or opportunities, 

to define or explain problems and isi.ues concerning the environment, 

to share perceptions or facts, 

to discover values, beliefs, or assumptions, 

to set goals, 

to develop candidate policies, plans, or programs to achieve goals^ 

to assess the worth of candidate policies, plans, or programs, 

to choose policies, plans, or programs, 

to develop approaches for implementation of choices, 

to identify who have what tasks to accomplish for implementation, 

to evaluate performance of policies, plans, or programs. 
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To achieve any of these purposes, it is helpful to give careful consideration 
to the following steps for conducting an inquiry. 

1. At the outset it is important to define clearly the purpose(s) of the 
collective inquiry. This is needed to insure that the participants work together 
toward a common goal. If it is not done, some participants may try to engage in 
activities that are incompatible with the activities of other participants during 
an inquiry. As an example, some may try to develop candidate policies addressed 
to an environmental issue while other participants at the same time are trying 
to assess the worth of policies. The former group is engaged in a process re- 
quiring conceptualization, while the latter is engaged in analysis. Mi.xing these 
kinds of activities at the same time often leads to conflicts and/or failure. 
An approach more likely to succeed would separate the activities in time by first 
generating candidate policies and then assessing the worth of each candidate. 
Defining the purpose clearly will help the group of participants to focus on 
a single task at any given point in time and, thereby, improve their chances 
for success. [1] [2] 

Another reason for defining the purpose clearly is to help insure that ap- 
propriate participants, appropriate arrangements, ^nd appropriate tools are 
obtained and involved in the inquiry. More is said on these below. 

2. It is important to plan well for obtaining good participants and arrange- 
ments for an inquiry. Too often collective inquiries fail because not enough 
atitention is given to one or both of these. Table I indicates some of the main 
points requiring attention. 
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TABLE I 

PLANf!ING COLLECTIVE R IQUIglES 



0 GET GOOD PARTICIPANTS 

0 INSURE GOOD PHYSICAL ARRANGEMENTS 

0 INSURE GOOD STAFFING 

0 PREPARE SOURCE MATERIAL FOR THE INQUIRY 

0 INSURE GOOD RECEPTION AND ORIENTATION FOR PARTICIPANTS 

0 INSURE CONTRIBUTIONS ARE RECORDED 

0 PREVENT DISRUPTIONS TO ORDERLY THINKING 

0 SUMMARIZE AND FEED BACK RESULTS 

0 DOCUMENT AND ANALYZE INQUIRY .PROCESS AND RESULTS 

0 DISTRIBUTE FINAL REPORT 



Good participants have the right qualifications, are willing to contribute, 

and have an Interest in the issue under consider$|tton , 

Good physical arrangements have, adequate blackboards, flip charts, sound- 
proofing, temperature control, audio-visual equipment, sleeping accommodations, 
and everything else needed to facilitate the productivity of the effort. 

Good staffing insures adequate secretarial help, receptionists, etc., as 
well as resource persons with knowledge of the content of the issue in the 
inquiry. 

In addition to resource persons, the content of the inquiry may be aided by 
providing "issue" or "barVground" papers for the participants to be read before 
the meeting and/or referred to at the meeting. Relevant "facts books" may be 
prepared also for use at the meeting. 



A good reception for the participants reinforces in their minds that their 
contributions are important for the success of the meeting. Good orientation 
focuses their thinking on the purposes for the meeting, the orocesses to be em- 
ployed to achieve those purposes, and the schedule to be followed. Good orien- 
tation also helps insure that no participants' contributions are lost because the 
participants are lost. 

Recording the contributions of the participants insures that after the meeting 
one can refer to the record for whatever reason. 

Preventing disruptions of the participants' work is important whether from 
telephone calls, the need for minor decisions, lobbyists for special interests, 
or whatever. 

Summarizing and feeding back results is useful during and after the meeting. 
Errors can be corrected. Results can be improved through iteration. The amount 
of progress can be assessed. 

Documenting the process and the results of the inquiry serves several purposes. 
It allows analysis both by the participants and by others not involved. It provides 
a springboard for later stages of inquiry. And it provides valuable information 
for improving the tools for collective inquiry. It allows others not involved 
in the process to share in the learning achieved. 

None of this can be achieved without careful and persistent attention to 
detailed planning. 

3. After the purpose for the Inquiry is defined and the participants and 
arrangements are fixed, attention can turn to the inquiry process as such. In 
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most cases, the participants first need to identify the elements of the issue being 
addressed. For example, if the- purpose of the collective inquiry i^ to define an 
environmental problem, difterent participants can probably see different contri- 
buting factors. Th .e factors put together make up the environmental problem. 
Each is an element of the problem; none is the whole problem. Through the process 
of generating the elements, the participants gain an improved and shared under- 
standing of the whole problem. 

4. After the elements of the issue under consideration have been generated, 
it is natural in most circumstances to begin to consider what the relations are 
among the elements. Transitive relations are useful for developin^^hains of 
relations. For example, suppose the elements of the issue are the Qntributing ^ 
factors of an environmental problem. Consider the relation "contributes to . • 
Then if factor A contributes to factor B, and if factor B contributes to factor 

C, then, by transitivity, factor A contributes to factor C. 

Choosing the relation to use is an important decision in most inquiries. Con- 
sider for a moment the differences in 1;he following: "contributes to"; "is more 
important than"; "is more easily managed than"; and "occurs before". Depending 
on which one of these is chosen, in most cases, different structures of related 
elements will re-^i'lt. It is sometimes useful to consider more than one relation 
with a set of elements, but not at the same time. 

5. After a contextual relation is chosen, the participants may begin to 
consider pairs of elements to decidu whether thf relation holds between them. 

■In the process of deciding whether the relation holds, two situations can arise. 
The first occurs when the group decides the relation holds in both directions. 
For example, the group might decide the chicken is more important than the egg 
an6_ that the egg is more important than the chicken, in which case, it seems 
natural to agree they are of equal importance. Such situations can occur with 
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many relations, e.g. "contributes to". The ".'^cond situation occurs when the group 
,finds it impossible to decide that the 'ds in either direction, e.g. 

A is not more important than B,.and B- .nportant than A. There is no 

requirement that the relation hold in eu... uirection, and no one should be 
concerned if it does not. 

In the. process of deciding whether "the relation holds, between two elements, 
the group often develops an improved definition or understanding of the elements 
or the relation. They also often gain a better understanding of other participants' 
views about the elements or the values, beliefs, or perceptions of other participants. 
These improved understandings are among the main, beneficial outcomes of collective 
inquiries. 

This step ends when all the pairs of elements have been tested with the chosen 
relation either directly, or by inference using transitivity. By using the latter, 
the group usually does not 'have to decide a large number of cases. That is, if A 
relates to B and B relates to C, then it can. be inferred immediately that A relates 
to C without asking the group to decide. The us^ of *a computer greatly facilitates 

making such infsrences. 

6. Once the relation has been tested with all pairs of elements and the results 

have been displayed, then the group can analyze the results to determine if they seem 
intuitively reasonable -or, failing that, determine an explanation' for the resulting 
structure of related elements. If this is possible, new insights about the issue 
under consideration are often gained. 

If the results do not seem reasonable and no explanation can be found, then the 
group may choose to amend the structure to achieve one that does seem intuitively 
reasonabTe or that can be explained. One of the ways to amend the structure is 
to reconsider decisions where the group was almost evenly divided on whether the 
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relation held or'not. jfhrough additional discussion, the group may decide to 
reverse the decision. This will alter the structure. Another way to amend the struc- 
ture is to recognize and decide that a major portion of the structure belongs In 
a different place within the overall structure. In these cases and others the amend' 
ment process is facilitated by the use of a computer. 

Several different structures may be achieved by using different elements, or 
different relations, or different groups of participants. In these cases and in 
others, there may be a need to rank or assess the worth of the various structures. 

7. When the collective inquiry is comp.leted, documentation of the results 
and the process is useful for several reasons. It allows others who were not 
participants to gain some understanding of how the results wers achieved. If they 
see weak points, these can be strengthened. Another benefit 4s to enable other 
participants to build on the results. A third use is for reference by the par- 
ticipants or others who may want to look back at the process or the results. 

After documentation, the results should be disseminated to all of those who 
need to be aware of or to use the results for follow-up actions. 

APPROACHES TO COLLECTIVE INQUIRIES 

Approaches to collective inquiries considers the questions of who, where, what, 
and when. Who will participate? Who will serve as resource persons? Who will 
the staff be to support the effort? Where will the meetings be held? Where 
will those involved stay? What equipment will be needed? What resource materials 
will be needed? When will the meetings begin? When will they end? 

Answers to such questions will depend on a number of factors. Chief among 
them will be how soon the results must be obtained an ' how many of the objectives 
given in the previous section are to be sought. Two important constraints on the 
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approach to be taken are the funding and staffing available for the inquiry. 
These kinds of factors and constraints are important for deciding whether to 
undertake a collective inquiry at all and, if that decision is in the affirmative, 
what approach to take. 

In this section, three approaches are described. All of them have been used 
successfully in actual inquiries. They differ mainly along one dimension, the 
time required to conduct the inquiry. The^irst requires about^forty-eight hours; 
the second, about four to six weeks; and the third may take more than a year. 
It is not intended to imply that inquiries could not take more or less time. These 
are examples. 

For a particular inquiry, combinations of the three might be appropriate. 
For example, the third approach might include a sequence of inquiries using the 
first approach. It is intended that the descriptions of these three approaches 
may help to suggest to the reader how to design her/his own approach to satisfy 
the need at hand. 

* 

1. CHARETTE APPROACH k 

The term "charette" comes from the early French schools of architecture and 
refers to the approach used by students for design projects. They worked around 
the clock during a short period of time to complete their designs. 

This approach was adopted by the Forest Service for land management planning 
for the Shawnee National Forest in Illinois. [3] Simply stated this was a joint 
effort of Forest Service personnel and concerned citizens to dev.elop the management 
plan for the Shawnee National Forest through the year 1985. By working together . 
collectively, they exchanged ideas, analyzed the available and potential natural 
resources, considered the constraints and demands, and developed what they considered 
to be the best management plan they could. The work began on Friday at 5:30 pm , 
and closed the following Sunday at 5:00 pm. The work continued past midnight for 
some of the participants. 
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Although the inquiry only lasted about forty-eight hours, the time required 
to prepare for it and to process the results was considerably longer. Interested 
and capable citizens were identified and recruited to participate in the meeting. 
A study guide was prepared that included salient facts on the issues that would 
be covered at the meeting. The study guide was mailed to the participants fol- 
lowed by a reminder letter to study the material, attend the meeting, and submit 
comments on the issues. The comments were analyzed, summarized, and fed back to 
the participants. Arrangements were made to pre-register the participants by 
mail. Motel arrangements were made and checked to be sure they were adequate. 
Audio-visual equipment was obtained and inspected to insure it was working. Arrange- 
ments were made and checked to insure there were enough and good meeting rooms, 
blackboards, chalk, flip-charts, markers, etc. Secretarial services were obtained 
for the meeting and for processing the results. Resource persons and group leaders 
were identified, aslected, recruited, confirmed, and informed. The group leaders 
were chosen on the basis they were known to be interested, open minded, and able 
to encourage broad coverage and participation. Work assignments and schedules were 
prepared for supporting staff including scribes for each work group. A briefing 
Was given to the supporting staff. Major issues or projects that were to be covered 
in the Charette were selected, and bri«efing papers prepared for each of them. 
Arrangements for registering and welcoming the participants at the meeting were 
made including assignments to work groups. A speech was prepared for the forest 
supervisor to give to welcome the participants, and to provide motivation and 
orientation for their work. " > 

Following the meeting, reference and other materials were retrieved from the 
participants. Reports from the work groups were collected. The scribes and other 
relevant staff remained at the site of the Charette to analyze the written reports 
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and to clarify or elaborate on the lanyuage when 1t was deemed desirable. Still 
at the site, a draft of the sunmary report was prepared. Later the final, report 
was prepared and disseminated. 

Additional arrangements were made for conducting the meetings. Scribes 
were asked to report on the process of the meetings and to record agreed-upon 
definitions or contraints, rejected ideas, accepted ideas, and conclusions. 
Plans were made to minimize interruptions to insure the maximum benefit from the 
participants' contributions. A plenary session was planned for Sunday after- 
noon where the group leaders delivered oral reports on the results of their meetings 
and the forest supervisor thanked the participants for their help. 

A summary of the main steps in the Charette approach is given in Table II. 
Helpful tools for use during such meetings are given in the section on Tools for 
Collective Inquiries. 

TABLE II 
CHARETTE PROCESS 

1. Prepare a brochure to serve as a study guide for the participants. In- 
clude the salient facts on the issues th«y will address. 

2. Identify and recruit relevant participants and mail them the brochure. 

3. Send follow up letter to remind participants to study material, attend 
sessions, and provide comments. 

4. Make arrangements to process comments i.e. analyze, summarize, and disseminate. 

5. Make arrangements for registering participants by mail. 

6. Insure that motel arrangements are in order, including audio-visual equip- 
ment, auditorium, conference rooms, flip charts, blackboards, secretarial 
services, computer services and telephone lines, if needed. 

7. Select, recruit, confirm, and inform resource persons. 
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8. Develop 11st of potential projects to be discussed. 

9. Select, recruit, confirm, and Inform Group Leaders. Select on basis of 
personal knowledge of abilities, interest in project area, open-mindedness, 
and ability to encourage broad coverage and participation. 

10. Arrange for registration and reception at meeting. Prepare name tags. 

11. Prepare work assignments and schedules for support staff, including Scribes 
for each work group. 

12. Prepare motivation and orientation speech. 

13. Give briefing to support staff. 

14. Prepare reference materials to be available at meeting. 

15. Register participants and assign them to work groups. 

16. Deliver motivation and orientation presentation. 

17. Introduce Work Group Leaders, Scribes, and resource persons, and break into 
Work Groups. 

18. Insure that Scribes record process, rejected ideas, and accepted ideas. 

19. Prevent special -Interest "floaters" from traveling from group to group to 
carry their proposals. 

20. Convene final plenary session and make opening remarks on its purpose. 

21. Have Group Leaders deliver oral and written reports to top manager. 

22. Have top manager thank participants and all others involved for their work., 

23. Request participants and others to return reference and other materials and 
adjourn meeting. 

24. Collect registration list and WorkGroup reports. 

25. Hold Scribes and other relevant staff at Charette site to anal,yze written 
reports arid elaborate on language \f needed. 

26. At site, prepare draft of summary report. 

27. Prepare final report. 

28. Distribute final report to participants and other appropriate persons. 

Id 
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2. - AT&T/BATTELLE APPROACH 

The approach described in this section was first used in Columbus, Ohio, 
to assess that community's expectations for a public school curriculum The 
development of the approach was sponsored by AT&T and Battel le Memorial 
Irtstitute, Battelle Columbus Laboratory (BCL). [4] 

The approach is iterative. Information is requested irom participants. 
The information received is analyzed, categorized, and summarized. The results 
are then returned to the participants with a request for additional information 
that elaborates or refines the previous information. A summary report is pre- 
pared and distributed. 

In the implementation of this approach in Columbus, one of the first steps 
taken was to obtain the support of the Board of Education for the assessment and 
to have it appoint a coordinator for th^ assessment. This was important for 
conducting the assessment and for the acceptance of the results. Concern for 
"legitimacy" is important in most collective inquiries. 

In developing the approach, a plan was established for recruiting partic- 
ipants for the assessment who represented a cross-sectiop of those who were 
concerned about the learning outcomes achieved by students. Among those con- 
cerned about learning outcomes are students, parents, employers, teachers, and 
other members of the community. It was important that the plan for obtaining 
participants emphasized this need for representative participants.' There were 
about 1700 participants (including group leaders) from 14 school areas in the 
Columbus assessment. The first question used to generate information by the 
participants was "What does a person leaving high school need to know or be 
able to do to''make it' in life?" (This terminology was employed because it 
was recognized that a number of students leave school before they obtain diploma 
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Two types of supporting staff were involved, trainers and groqp leaders. 
The trainers were graduate students at Ohio State University and the group 
leaders were teachers, students, parents, businessmen, and other members of the 
community. Th| means for selecting group leaders in the 14 school areas is shown 
in Figure 1. There were 8 trainers and 257 group leaders. The trainers pro- 
vided training for the group leaders, gave them advice when it was needed, 
monitored their progress, and. helped insure the assessment proceeded on schedule. 
The group leaders recruited the participants, made arrangements for meeting 
locations, notified and reminded participants of meeting times, distributed 
necessary materials at the meeting, led the meetings, collected results, and 
fed them back to the Battel le staff coordinating the assessment. 
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DISTRIBUTION OF 
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AREA ' 
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SCHOOL 


12 TO 20 LEADERS 
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RESPONSIBILITY FOR 
SELECTING LEADERS 


EACH HIGH SCHOOL 
PRINCIPAL 


EACH HIGH SCK^OL 
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EACH SCHOOL 
PRINCIPAL 


PROJECT DIRECTOR 


SELECTION CRITERIA 
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AND WILLINGNESS TO 
ORGANIZE OTHtR 
STUDENTS 
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0 PARENTS AND NON- 
PARENTS 

0 BOTH SEXES 

0 NOT EMPLOYED BY 
CITY SCHOOLS 

0 WILLINGNESS TO SEE 
AN ACTIVITY 
THROUGH TO COM- 
PLETION 

0 BASIC READING, 
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TRAINING 
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SIONS, BUSINESSES, 
AND SERVICES 
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TABLE III 

TOPICS COVERED IN THE GROUP LEADER'S GUIDE 

(1) WHY IS THIS PROJECT IMP^TANT? 

(2) HOW IS THE PROJECT ORGANIZED? 

(3) WHAT ARE THE RESPONSIBILITIES OF A GROUP LEADER? 

(4) WHAT ARE THE DETAILS ABOUT THE MEETINGS THE GROUP LEADER 
MUST CONDUCT? 

(5) HOW SHOULD THE GROUP LEADER SELECT HER/HIS GROUP MEMBERS? WHAT IS 
THE "INFORMATION SHEET" THAT IS TO BE DISTRIBUTED? WHAT IS THE 
"PROJECT OVERVIEW"? 

(6) IN ADDITION TO SELECTING AND CONTACTING GROUP MEMBERS, HOW SHOULD 
THE GROUP LEADER PREPARE FOR THE FIRST MEETING? WHAT ARE SOME OF 
THE SKILLS THAT AN EFFECTIVE GROUP LEADER POSSESSES? WHAT IS A GOOD 

WAY TO ARRANGE THE MEETING ROOMS FOR THE COMMUNITY GROUP MEETINGS? , < 

(7) HOW DOES THE GROUP LEADER CONDUCT THE FIRST COMMUNITY MEETING? 

(8) WHAT SHOULD A GROUP LEADER DO BEFORE THE SECOND TRAINING SESSION? 

"(9) WHAT MATERIALS SHOULD A GROUP-LEADER'S TEAM RECEIVE IN THE EQUIPMENT KIT? 

(10) HOW SHOULD THE GROUP LEADER PREPAREFOR THE SECOND COMMUNITY MEETING? 

(11) HOW DOES THE GROUP LEADER CONDUCT THE SECOND COMMUNITY MEETING? 
WHAT SHOULD BE REVIEWED FROM SESSION I? HOW DETAILED SHOULD THE 
SKILL STATEMENTS BE? /' 

(12) WHAT SHOULD THE GROUP LEADER DO AFTER /THE TRAINING SESSIONS ARE 

'/ 

COMPLETED? 



-16- 



TABLE IV 

AT&T/BATTELLE APPROACH FOR ASSESSING COMMUNITY 
EXPECTATIONS FOR PUBLIC SCHOOL CURRICULUM 

1. Obtain the support of the Board of Education and a Coordinator for it. 

2. Recruit Trainers and Group Leaders. Develop a plan for recruiting 
participants. 

3. Identify and secure appropriate locations for meetings and schedule chem. 

4. Prepare materials explaining the goals of the project and the processes to 
be employed to generate information. 

Prepare audio tapes to be used by Trainers in training Group Leaders. 

6. Develop Group Leaders' Guide. 

7. Instruct Trainers on use of audio tapes and Group Leaders' Guide. Dis- 
cuss anticipated problems Group Leaders might encounter in their commun- 
ity meetings. 

8. Prepare instruction for Group Leaders including what their responsibili- 
ties are, explanation of how the project is organized, how to recruit 
community participants, how to arrange location for community. meeting, 
how to prepare for community meeting, what to distribute (posters, hand- 
outs, index cards, badges, magic markers, etc.), and the results needed. 

9. Insure that Trainers have recruited, confirmed, and reminded Group 
Leaders and have prepared for and scheduled training sessions. 

10. Prepare plan for analysis of meeting results and the scheduling of 
succeeding meetings. 

11. Insure that Group Leaders have recruited representative participants 
from the community and arranged for meetings. 

12. Send postcards to Group Leaders and participants to remind them before 
each meeting. 

13. Insure that Group Leaders report results of meeting to Proj-ect D.irector. 

14. Analyze results and prepare feedback to participants and request more 
refined input. 

15. Repeat 12 and 13 and summarize the results. 

16. Have participants review results and feed back. 

17. Prepare and distribute final report. 
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The Battel le staff prepared materials for orienting the supporting staff 
and others. These materials explained the goals of the project and the processes 
to be employed for generating information. The Battel! e staff also prepared 
audio tapes for the trainers to use in training group leaders and developed a 
group leader's guide. The topics covered in the guide are shown in Table III. 
The trainers were instructed on the use of audio tape equipment and the use 
of the tapes and the group leader's guide. Anticipated problems that the group 
leaders might encounter were discussed along with possible ways the trainers 
might suggest for handling them. 

The resul -s of the assessment were sent to the 1700 participants, the Board 
of Education, and the school administration. 

A SAJimary of this approach is given in Table IV. Application kits for this 
approach are available from Communication Technology Corporation in Marl ton. 
New Jersey. 

3. WASHINGTON ST ATE^APPROACH 

The approach described in this section was used in the State of Washington 
to help define alternative futures for the stc^te and to formulate proposed leg- 
islation to help achieve specific goals. The effort was initiated by the Governor 
to guide the state government's program planning and to provide criteria for 
making budget decisions. 

There were several categories of participants. First, there was a task force 
of 165 members. These were chosen from over 4000 nominees, as a representative 
sample of the state's population. Second, there were 1500 participants from ten 
geographic areas. Third there were 500 from each of these ten geographic areas 
making a total of 5000. And finally there was a group of 1000. 

The initial efforts consisted of four, 3-day workshops lasting 16 hours each 
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day. The participants in these were the 165 members of the task force. The 
workshops consisted of classroom sessions, in-depth exchanges of information 
and perceptions, and futuresrcreatirtg exercises. The 165 produced a number of 
candidate goals and analyzed them for the impact each would have on the other 
goals. % 

These workshops were augmented by areawide meetings in ten geographic areas 
of the state involving 1500 participants. These meetings were briefer futures- 
creating sessions. 

Following the ten area meetings, the 165 reconvened and finalized eleven 
alternative futures and a large number of specific goals. 

Next an intensive media campaignwas mounted to inform the population at 
large about the results. Weekly television programs were given In an effort 
to educate citizens. News releases were prepared and distributed to news- 
papers throughout the state. 

Following the media campaign, citizens were Surveyed for their preferences. 
The questions were developed by researchers working with the 165. A telephone 
survey of 1000 citizens was done to get feedback as quickly as possible. A mail 
survey was made of 500 citizens in each of the ten geographical areas to determine 
geographical variations in preferences. The 165 were surveyed by mail to obtain 
the views of those who had struggled with the issues. And, finaT^^, the 1500 
participants in the area conferences were surveyed by mail to get "informed" 
perspectives. 

The results of .he surveys were cross-tabulated to provide views of subgroups, 
e.g. high and low income group^. The results were presented to the 165 tark force 
members who then prepared final recommendations which were strongly influenced 
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by the survey results. There were seven issue areas Included: economic 
growth and population settlement; environmental protection and land use; 
natural resources and energy; transportation and communication; human 
development; education and training; and government. 

The recommendations were incorporated into the governor's 1975 state 
of the state address and integrated into 20 of the 30 pieces of legislation 
he recommended to the legislature. 

"As may have been noted by the reader, this approach incorporates features 
of the two approaches described previously. 

More detail can be obtained from referer.^es [5] and [6]. , 
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TOOLS FOR COLLECTIVE INQUIRY 

In the first section of this volume, seven steps of a collective inquiry 
are described beginning with defining the purpose of the inquiry and ending with 
documenting the process and the results. 

In Che second section, three approaches to planning the arrangements for 
a collective inquiry are given. These approaches are especially usef'jl»for 
step two of the first section, i.e. planning the process for the inquiry. 

In this section some tools are presented that are intended to be usefu"" 
in carrying out the other steps. After the tools are described, a report is 
given on a field test of the tools. ' 

DESCRIPTIONS OF TOOLS 

In the pages that follow, brief descriptions of five recommendeQ tools 
for conducting collective inquiries are given. These are brainwri ting, nom- 
inal group technique, interpretive structural modeling, voting procedures, 
and worth assessment. (The options profile is described in Volume 2.) 
The applicability of these tools and the approaches described earlier^'^e 
indicated in Figure 2. The descriptions of the tools are intended to give 
the reader enough information to see their usefulness. On the other hand, 
those who want to apply the tools will probably need additional information. 
That can be obtained from the references provided at the end of /this volume. 
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Figure 2. COLLECTIVE INQUIRY PROCEDURES* 

^ 'S ^ ?f 1 indicates that the Tool or Approach at the top is applicable to the Step in the row. 

A blank cell does not mean that the Method is not applicable. 



BRAINWRITING ( IDEAWRITING) 

A collective inquiry tool useful for generating ideas by small groups. Ideas are generated by individuals 
stimulated by a carefully prepared, trigger question. Ideas are written on sheets of paper. The sheets are 
passed to other participants who elaborate or clarify the ideas already recorded or add new ideas. This 
tool is helpful in defining problems, conceptualizing approaches to solutions, and formulating policies. It 
is especially useful when uncertainty or controversy exists about an issue or problem and its possible reso- 
lution. It works well even when it is important to neutralize the effects of dominant individuals. 



APPROPRIATE CONDITIONS FOR USE 
0 A need to collect ideas relevant to some issue. 
0 A carefully prepared, focused trigger question. 
0 Qualified persons willing to participate. 
0 Qualified group leader willing to facilitate. 

APPLICATION AREAS 

0 Generally applicable when there is a need for 
collective idea generation. Especially useful 
for defining problems, requirements, or objec- 
tives to be used as inputs for other tools, 
e.g. ISM or worth assessment. 

0 Useful for involving stakeholders in planning. 

RESULTS OF APPLICATION 
0 A list of 50 to 100 ideas about some issue. 
0 Increased understanding by the participants 
about the issue, the ideas, and each other. 
0 An opportunity for all to contribute ideas. 

RESOURCES REQUIRED FOR APPLICATION 
0 No more than six persons for a single group. 

Multiple groups may work simultaneously. 
0 Each group needs a quiet place to work, a 

table and '■hairs, paper, and pencils. 
0 From 15 minutes to two hours for process. 
0 Funds, if required, for participants or leader. 



HOW THE PROCESS WORKS 

0 First, silent generation of written ideas by 
individual participants stimulated by carefully 
prepared, focused trigger question written at 
the top of a sheet of paper. 

0 After about 5 to 10 minutes, participants ex- 
change sheets of paper and build on the ideas 
already recorded or add new ideas that occur. 

0 Process continues with further exchanges until 
all or most of the participants have seen all 
or most of the sheets. 

0 Participants or facilitator edits the lists by 
clarifying and coalescing similar ideas. 

IMPORTANT ATTRIBUTES OR FEATURES 

0 Potential for generating many ideas concerning 
organizational or behavioral issues. 

0 Potential for encouraging contributions from 
reticent participants or moderating dominant ones 

0 Opportunity for all stakeholders in issue t6 pro- 
vide inputs to the process. 

RELATED TOOLS 
0 No other tools are required to use brainwriting. 
0 Alternate tools are nominal group technique, 

Delphi, and content analysis." - 
0 Results may be used as input to ISM or worth 
assessment. 
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BRAINWRITING 

Faced with the need to generate ideas related to an 
issue or problem, a facilitator is obtained, facilities 
are obtained, and a group knowledgeable about the issue 
is convened. A carefully prepared, focused trigger ques- 
tion is phrased by or explained to the group. Stimulated 
by the question, the members write their ideas on sheets 
of paper. After 5 to 10 minutes, the lists of ideas are 
exchanged among the members and each tries to elaborate 
T)r clarify the ideas on the sheet or adds new ideas that 
occur to him. The process continues until a set time is 
reached or the group has no new ideas or the sheets have 
been passed to everyone. Then the ideas are clarified 
and/or coalesced to produce a final list. 
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NOMINAL GROUP TECHNIQUE (NGT) 



A collective Inquiry tool useful for generating ideas by small groups. Ideas are generated by individuals, then 
discussed, clarified, elaborated, and combined by the, group; This tool is helpful in defining problems, concep- 
tudlizlng approaches to solutions, and formulating policies. It is especially useful when uncertainty or contro- 
versy exists about an issue or problem and its possible resolution. It works well eyen when it is -important to 
neutralize the effects of dominant individuals to allow all participants to contribu-te ideas. 



APPROPRIATE CONDITIONS FOR USE 
0 A need to collect ideas .relevant to some issue. 
0 A carefully prepared, focused trigger question. 
0 Qualified persons willing to participate. 
0 Qualified group leader willing toact as a far 
cilitator; preferably not an expert on the issue. 

APPLICATION AREAS 

0 Generally applicable when there is a need for 
collective idea generation. Especially useful 
for defining problems, requirements, or objec- 
tives to be used as inputs for other tools, 
e.g. ISM or worth assessment. 

0 Useful for involving stakeholders in planning. 

RESULTS OF APPLICATION 
0 A list of 20 to 100 idea>/about an issue. 
0 A preliminary ranking 6t the ideas according 

to a chosen criterion. 
0 An opportunity for all to contribute ideas. 

RESOURCES REQUIRED FOR APPLICATION 
0 6 to 10 persons for a single group. Multiple 

groups may work simultaneously. 
0 Each group needs a quiet place to work, a table 

and chairs, paper and pencils. Leader needs a 

flip chart and felt-tip pen plus a place to 

tape up sheets. 
G One to two hours time for process. 
0 I'unds, if required, for participants or leader. 



HOW THE PROCESS WORKS 

0 First, silent generation of written ideas by individ 
ual participants stimulated by an oral presentation 
of a carefully prepared, focused trigger question. 

0 Individuals present ideas one at" a time round robin.. 

0 Spontaneous elaboration or clarification of ideas is 
encouraged, but no discussion or criticism. 
-.0 Ideas are recorded on flip chart to form group list. 

0 Round robin discussion of the resulting list. 

0 Voting on the ranking of the ideas generated. 

IMPORTANT ATTRIBUTES AND FEATURES 

0 Potential for generating many ideas concerning organ- 
izational or behavioral issues. 

0 Potential for encouraging contributions from reti- 
cent participants and moderating dominant ones. 

0 Opportunity for all stakeholders in issue to provide 
inputs to the process. 

RELATED TOOLS 
0 No other tools are required to use NGT. 
0 Alternative tools are bra inwri ting, Delphi, and 

content analysis. 
0 Any of several voting schemes may be used with NGT. 
0 Results may be used as input to ISM or worih 

assessment . 
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NOMINAL GROUP TECHNIQUE 

Faced with a need to generate Ideas related to an Issue 
or problem, a group leader is chosen, facilities are obtained, 
and a group familiar with the issue is convened. A carefully 
prepared, focused trigger question is explained to the group. 
Stimulated by the question, the members write their ideas on 
sheets of paper. Ther}, in turn, each presents one idea to 
the others for elaboration or clarification. After all the 
ideas are presented and recorded on a flip chart, they are 
ranked by each participant using some agreed-upon-criterion 
as usefulness, relevance, etc. Then these rankings are com- 
bined by some voting scheme to produce a final list. 
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INTERPRETIVE STRUCTURAL MODELING (ISM) 



A computer assisted learning process than enables an i 
relations among a set of given elements. 

APPROPRIATE CONDITIONS FOR USE 

0 A set of elements related to the issue. 

0 A relationship which is appropriate to inter- 
relate the elements. 

0 A complex issue requiring understanding of 
interactions among many elements. 

0 Persons who have -knowledge of the issue and are 
willing to participate. 

APPLICATION AREAS . . 

0 Generally applicable where there is a need to 

relate elements of an issue, problem, system, 

etc. to obtain a holistic view. 
0 Useful as a step toward the development of 

quantitative models 
0 Useful for setting priorities or precedences. 

RESULTS OF APPLICATION 

0 A structured model of related elements. 

0 A carefully refined language to describe or 
discuss an issue or system, 

0 A shaded and improved understanding and defini- 
tion of elements and relations used. 

0 Enhanced understanding of the whole. 

RESOURCES REQUIRED FOR APPLICATION 

0 A responsible client for the study who wants 
to benefit from knowledge of available partici- 
pants concerning a particular issue. 

0 Up to 8 willing and able participants, a group 
leader familiar with interpretive structural 
modeling, and a computer operator. 

0 A time-shared computer with programs for struc- 
turing. A large screen display is helpful, but 
an exercise may be conducted using a teletype- 
writer-type terminal with auxiliary siTIall screen 
television display. 



vidual or a group to develop a structure showing inter 



RESOURCES REQUIRED (continued) 
0 Funds for participants' and leader's time; equipment, 

approximately $50 per hour; and telephone lines. 
0 The time required for an exercise depends upon the 

number of elements in the model and their complexity. 

A ten-element exercise might take one to two hours. 

HOW THE PROCESS WORKS 
0 An issue and structuring theme are identified. 
0 A group and a process leader are chosen. 
0 Elements and contextual relation are obtained. 
0 The group responds to computer-posed questions 

relating elements. 
0 The computer displays the structure developed. 
0 The group amends the structure until it is satisfactory. 

IMPORTANT ATTRIBUTES AND FEATURES 
0 Appropriate relation must be chosen carefully. 
0 Elements and relation are clarified by reasoning and 

discussion stimulated by the process. 
0 The quality of the results obtained is strongly dependent 

upon the leader. He should facilitate and not impose 

his knowledge of the issue. 
0 Overemphasis of the mechanistic and technical aspects 

of the process should be avoided. 

RELATED TOOLS \ 
0 Nominal group technique, brainwriting, DelpfyPr'^Jtera- 

ture search, or a combination of these can generp^ 

elements and contextual relations for the pK^ce^. 
0 In simple situations, "rearrange and tape" anBother 

heuristic, non-computer-assisted methods may be used. 

Great care must be taken to avoid overly simple, 

erroneous results using these approaches. 
0 The process may be used as a step to quantitative 

modeling or to structuring attributes or assessing 

worth for making choices. 
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INTERPRETIVE STRUCTURAL MODELING 

This process systematically relates the elements of an issue 
or problem using a computer program with three kinds of Inputs: 
1) the elements; 2) the relation; and 3) participants' yes or no 
answers to questions posed by the program. Through the discussion 
preceding the answers, considerable learning Is shared by the par- 
ticipants about the elements, the relation, and the structure of 
the model relatiny the elements. To decrease the number of an- 
swers required, the program uses logical inference. This requires 
that the relation used be transitive, i.e. if X relates to Y and 
Y relates to Z, then a will relate to Z. From the accumulated an- 
swers the program develops and displays a structural model of the 
relations among the elements and allows the modeling group to 
amend the model to their satisfaction. 
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VOTING 



'Voting is a prevalent method of democratic group decisio 
paradoxical results where preferred candidates lose. In 
than others. It is helpful to be able to identify which 

APPROPRIATE CONDITIONS FOR USE 

0 Candidates and their impacts have been deter- 
mined and a democratic method is needed to select 
a single alternative. 

0 A group needs to make a decision concerning selec- 
tion of an alternative. 

0 Group consensus to select an alternative is not 
easily obtainable. 

0 A legal mandate for voting exists. 

APPLICATION AREAS 
0 Generally applicable in all democratic situations 
when a group must choose among competing candidates. 

RESULTS OF APPLICATION 
0 A winner is determined as well as an indication 
concerning the strength of preference of the group 
for the winner. 

RESOURCES REQUIRED 
0 A set of candidates and a set of voters. 
0 A mandate or desire to decide democratically. , 
0 A leader to explain the procedure and tally the 
votes . 

HOW THE PROCESS WORKS 
0 There are many voting systems. Some useful ones 
are: 

- Plurality; Voters vote for one candidate and 
the one receiving" the most votes wins. 

- Majority Rule: Voters vote for one candidate. 
A candidate must receive more than 50% of the 
votes to win. If no candidate wins, runoff 
elections are held among candidates whose com- 
bined votes in the previous election constitute 
a plurality. 

- Weighted Voting: Voters are given a fixed 
number of votes. These are assigned by voters 
to competing candidates according to their 

o '^'J strength of preference. The winner is the one 
ERIC 



making. Any voting system can lead to unintended or 
certain situations certain voting algorithms are better 
voting systems are appropriate for given situations. 



with the greatest point total. In one such system 
with N candidates the most preferred is given N-1 
votes, the second most preferred N-2 votes, etc. 
Alternately, voters may assign their own preference 
votes on a fixed end point scale. This method of 
voting, also called Borda voting, is particularly 
vulnerable to "strategic" voting, in which people 
do not vote for candidates according to their prefer- 
ences in order to insure victory for their preferred 
candidate. 

- Binary Comparison Voting: Voters note their prefer- 
ence ordering ajTiong all candidates or vote in a 
binary fashion for all possible paired alternative 
combinations. In one method, known an Condorcet 
voting, the candidate that beats all others in pair- ^ 
wise contests is the winner. In another method, <» 
known as Copeland voting, a candidate's score equals 
the number of candidates whii h it defeats by simple 
majority voting minus the nun'iber that defeat it. 
The candidate with the highest point total wins. A 
Condorcet winner will also be a Copeland winner. 
If there is no Condorcet winner, the Copeland method 
selects the candidate that has the greatest win-minus- 
loss score. 

IMPORTANT ATTRIBUTES AND FEATURFS 
0 Potential for developing recommendations of preferred 
candidates. 

0 Potential for voting paradoxes. ^ 
RELATED TOOLS 

0 Various tools which require elements for inputs use 
voting. It is especially appropriate to precondition 
voters for informed voting. 

0 Worth Assessment is an alternative approach. 

0 Informed discussion which may be assisted by many of 
the collective inquiry tools presented in this volume 
may lead to informed voting and perhaps even consensus. 
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VOTING 

A procedure in which a group expresses its 
preference for an alternative from among competing 
alternatives. Many voting procedures exist f*nd the 
competing concerns Invol .'ing trade-offs between 
simplicity and ability to detect voting paradoxes should 
be considered in selecting a voting procedure. 
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Plurality Voting E Wins 

(E has 500 votes, B has 400^ D has 200) 

MaJnr'V Voting * B Wins 

/unoff election between B and 
£ has 500 votes, B has 600} 
Condorctt Voting - A Cyclical Majority 
Exist) and thera Is no winner 
Cope land Voting - D Wins 
A beats B,C: B beats C,E: C beats tt 
0 beats A,B,C; E beats D 




Croup X • 500 voters prefer 
£ to D to A to C to B 
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6 to C to E to A to 0 
Group Z • 200 voters prefer 
D to A to B to C to E 
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WORTH ASSESSMENT 



Evaluation or selection of/activities or alternatives is often based on subjective estimates of 1;heir worth. 
Worth assessment is a collective inquiry 400I for translating qualitative impress-ions of value into under- 
standable, consistent,^ and meaningful quantitative evaluations. This, is accomplished by identifying ancl organ- 
izing the attributes oY the /activities or alternatives into a wort^ structr -e. The attributes are assigned 
weights according to their importance to the final result. Each alternative is then valued using, the weighted 
'worth structiire to provide a quantitative basis for decision making. . 



APPROPRIATE CONDITION^ FOR USE 

0 A^need to decide among alternatives. 
, 0 A need to evialuate alternatives quantitatively. 
. o'A need to predict individual's decisi'ons. 
0 A need to make individual or group values explicit. 
0 A need to communicate the implications of 

alternati ves . 
0 A need to consider and organize multiple objec-, 
tives and assessment criteria. 

APPLICATION AREAS 
0 Generally applicable for decision making by helping 
to specify, interpret, or value the impacts of 
alternatives on individuals of groups. 

RESULTS OF APPLICATION 
0 A tree structure showing lower level criteria 

(attributes or objectives) which compose higher 

level criteria. 
0 An easily communicated display of the value or 

importance individuals or groups place upon 

criteria for proposed alternatives. 
0 An explicit valuation of proposed alternatives 

according to the importance placed on their 

attributes . 

RESOURCES REQUIRED FOR APPLICATION 
0 A set of altrrnatives for a decision. 
0 An individual or group that wants them evaluated. 
0 Qu''lified persons to identify and weight criteria. 
0 One to ten hours of participants' time. 
0 A qual if ied loader. 



HOW THE PROCESS WORKS 

0 The individual or group whose subjective values are to 
be. assessed is identified. 

0 The alternatives to be evaluated are identified. 

0 A set of performance criteria (attributes or objectives) 
are arranged in a tree structure such that lower criter- 
ia are parts of the criteria above them.. 

0 The criteria are assigned weights according to their 
relative importance (worth) to give a worth structure. 

0 Each alternative is evaluated using the worth structure. 

o The valu.s of the alternatives are compsv^ed for making 
decisions. 

IMPORTANT ATTRIBUTES AND FEATURES 

0 An explicit procedure that incorporates human judge- 
ment and values into a quantitative assessment. 

0 Multiple worth connections among assessment criteria 
and their consequences on performance can be shown. 

0 Risk considerations can only be approximated. 

0 Sensitivity analysis can be done to show the effects 
of the weights assigned. 

r:lated tools 

0 Brainwriting, NGT, or Delphi may be used to identify 
criteria (attributes or objectives). 

0 Interpretive structural modeling is useful for devel- 
ops tiy the worth structure. 

0 Decision analysis is an alternative tool, especially 
when probabilistic considerations are important. 
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COMPlCX OCCISION 
RtOUlRtO 

(SClCCT A POWIR 
PLANT SITC) 



Attrlbults of Ntw Powtr fltni 

Economic F*ctori 

Cnginc«r(ng FtasiblHly 

f nviroomtniAl Condliioni 

Optraltng Co%\% 

Construction Co»U 

W«Ur Supply 

PrOMlmily lo lo4id Cinttrt 

Air Pollution 

Wattr Pollution 



IDENTIFY PERTORMANCC CRITERIA 




ESTABLISH MIERARCMV 
PERFORMANCE CRITERIA 



WORTH ASSESSMENT 



ft 



There is a need to choose among alternatives pro- 
posed to resolve an issue or problem. A set of perfor- 
mance criteria is established. The criteria are struc- 
tured into a worth hierarchy and weights are assigned 
to the criteria according to their importance to the 
overall issue or problem. The worth of each alternative 
is valued using the weights and its particular attri- 
butes. The values for all alternatives are compared 
for making the final decision. 



Operating Contlrucllon Waitr ProKlmlly 
Costs costs Supply" to tOMi 



Air Wittr 

Pollution 



ASSIGN WEIGHTS TO 
PERFORKANCE CRITERIA 



W(m) 

vy(y) 

It ''btst* 



■ 0.677 
I 0.A22 
^ 0 3S2 
ilttrnMtvt 



DETERMINE FINAL 
WORTH SCORES AND 
SlLECT BEST 
ALTERNATIVE 



U(X) • function of the 
criteria weights «nd 
the attributes of the 
particular alternative 



[STA8LISH WORTH SCORING 
FUNCTION AND SCORE EACH 
OF THE ALURNATIVES 



ERIC 



-32- 



FIELD TEST OF TO OLS 

After the tools described above had been chosen' as candidates for assisting 
the conduct of collective inquiries, a field test was conducted. The purposes 
of the test were to determine if the descriptions of the tools were adequate 
and whether the tools were useful. 

To accomplish the test, 1t was desirable to find panelists who would be 
interested in participatii^g and who would be qualified to test the tools. The 
decision was made to ask the Tennessee Valley Authority to participate. It has 
a large environmental education program. It is responsible for regional de- 
velopment. And, it is Very much interested in and involved in conducting collective 
inqu!ries.. TVA consented and ten of its staff participated in the testing: 4 from 
environmental education; 2 from community development; 2 from the director's' office; 



1 from the citizen action office; and 1 from natural resources. All were in- 
volved with collective inquiries in one way or another. 

The tools that were tested were: bra inwri ting; nominal group technique; worth 
assessment; voting procedures; and interpretive structural modeling. For each 
of these tools, the panelists were asked to judge the pictorial and written In- 
formation describing the tool. These evaluations of the materials were use to 
make improvements in the descriptions. 

For brainwriting, nominal group technique, and interpretive structural 
modeling, the, participants made trial applications of each on real issues of 
importance to TVA. These applications were evaluated by the participants' re- 
sponses (using a five point scale) to the following questions. 

Ql. Was the method drfficul t to use? 1: very difficult; 5: easy. 



Q2. Did the re^ts achieved justify the resources used? l:too expensive; 
5: well worthwhile. 




Q3. Did the results achieved justify the time of the participants? 
1: wasteful; 5: well worthwhile. 

Q4. As a participant, did you like the method? 1: disliked it; 
5:11 ked it very much. 

Q5. Was the application of the method effective? 1: not effective; 
5: very effective. 

For brainwriting, the averages of the evaluations for each question were as 
follows. Ql:3.6; Q2:3.7; Q3:3.9; Q4:3.9; Q5:3.4. 

For the nominal group technique, the averages were: Ql:4.5; Q2:4.4; Q3:4.4; 
Q4:4.6; Q5:4.7. 

For interpretive structural modeling, the averages were: Ql:4.3; Q2:3.7; 
Q3:3.8; Q4:4.0 Q5:4.1. 

In addition to providing the numerical ratings, the participants also made 
a number of useful suggestions for improvements. 

Although no statistical significance can be given to the results (lack of 
time, money, and appropriate panelists prevented such results), they were useful 
for a number of reasons. The suggestions made for improving the pictorial and 
written materials were very helpful. The panelists were well qualified, in- 
terested, and openly skeptical when they started. Their' evaluations, especially 
of the applications, supported the judgments of the project team that these were 
useful tools for conducting collective inquiries. Moreover, applications of 
combinations of tools proved useful and indicated some improvements in ways to 
combine tools. 

In summary, the field test supported the choice of tools and provided 
useful information for improving them. 
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In addition to the field test of the tools described above, another 
field test was conducted on the options field described in Volume 2. Briefly, 
this tool is designed to help in collective inquiries aimed at the design 
of environmental learning systems. 

The participants in this field test were four TVA staff and twelve staff 
from colleges and universities that work with TVA in environmental education. 

This test was conducted to obtain the judgements of experienced environ- 
mental educators on the options field as a design tool. The participants 
were given two questions at the beginning that they would be asked to answer 
at the end. These questions were: 

1. What are the pros and cons of the design process (using the options 
field)? 

2. What are the pros and cons of the dimensions and the options? 

To answer these questions, the participants needed a "hands-on" experience 
using the design process. To that end they were asked to participate in a 
design exercise. The first part of the exercise was to develop a restriction 
structure. Detailed information is provided in Volume 2, but stated briefly 
this means the followir , In the design of an environmental learning system, 
choices of options in one dimension, say. Presumed Learner Skills Base can 
restrict the choice of options In another dimension, say, Basic Learning Out;- 
comes Sought. To develop the restriction structure, the participants used an 
interpretive structural modeling (ISM) approach. The elements were: 
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A. PRESUMED LEARNER SKILLS BASE 

B. PRESUMED LEARNING STYLE 

C. SOURCE OF INFORMATION 

D. MODE OF ENVIRONMENTAL EDUCATION* 

E. BASIC LEARNING OUTCOMES DESIRED 

F. TYPE OF ENVIRONMENTAL EDUCATION 

G. - CURRICULUM DELIVERY CONCEPT 

H. MEDIATOR MODEL 

I. LEARNER INTERACTION RESOURCES 
0. ORIGIN OF FINANCING 

The relation used was: "A choice of option(s) 1n Dimension X can restrict the 
choice of options in Dimension Y". 

Through their participation in this exercise to design the restriction 
structure, the participants gained familiarity with the dimensions and the 
options within the dimensions. 

After the restriction structure was developed, the participants participated 
in a second ISM exercise to develop a precedence structure. This structure ordered 
the dimensions of the optiotis field for selection of options. The elements of 
this exercise were dimensions, and the relation used was: "A choice of optlon(s) 
In Dimension X should take priority over a choice in Dimension Y". 

After the precedence structure was completed, the participants began (but 
did not finish because of time) to design a regional environmental learning 
system. The purpose was to involve the participants in the use of the 
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design process so that they would be able to evaluate it. 

The first question listed above was addressed first. To answer it a 
nominal group technique was used with the following questions: "What are the 
positive features of the design process?" and "What are the limitations of the 
design process?" Items given in response to the first question (with no priority 

imi 1 ied) were: 

0 Fle)tible; adaptable to region; can be modified 

0 Comprehensive 

0 Gives direction, -structure for eliciting decisions; systematic 
0 Offers opportunity for different views and disciplines to be included 
in the design 

0 Leads to consensus decisions which should lead to lasting effects. In- 
cludes realities of compromise 
0 Engenders thinking and analysis 
0 Involves individuals in the process 

0 Illustrates design and dimensions of the design - enables review by 

the group 
0 Permits computer-aided design, 

0 Forces distinguishing between synthesis and analysis 

0 Useful for capturing random ideas into useable form 

0 Builds on experience and, hopefully, encourages ingenuity 



id 



Items given in response to the question on limitations (with no 
priority implied) were: 

0 Limited population with ability to use process, limited ability 

to think through process 
0 Restriction concept needs to be presented more clearly 
0 Raquires individuals who are interested and willing to give their time 
0 Time to use right limits its use. Needs to be refined 
0 Parameters (scenario) needs to be defined at start 
0 Understanding dimensiorfl' "and options' denotations and connotations 
is very hard 

0 Paramount to use well-organized facilitator training procedure 

0 Lack of understanding of systems concepts affect^ people's feelings 

about process. Creates hostility, opting out oF process. 
0 Needs to be made clear that process is iterative 
0 Outcome of process is affected by group interaction skills 

of participants 

0 Facilitator needs to lay out work, pace work, and take stock of 
progress periodically 

Time did not permit the second question regarding dimensions and options 
to be addressed in the same way as the first. Instead, the participants in- 
dividually submitted lists of pros and cons regarding the dimensions and the 
options including some suggestions for additional options. Many of these 
have been incorporated in the material presented in Volume 2. 

In summary, the options field is judged to be a potentially useful tool 
in the design of environmental learning systems but must be used with qual- 
ified participants and facilitators, and the context should be clearly 
defined. 

GO 
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COMPUTER IMPLEMENTATION OF 
INTERPRETIVE STRUCTURAL MODELING 

Introduction 

One of the chief obstacles to solving the environmental problenns that confront the 
world today is the inability of both average citizens and policy decision-nnakers to deal 
with the complexity of these problems. Environmental problems, such as air and water 
pollution, are comprised of many factors and involve interrelationships that may be 
difficult to understand. As a result, solutions to environmental problems have often been 
too simplistic^ and have not always improved the quality of the environment. 

This appendix presents information about interpretive structural modeling, a method 
that can be useful in dealing with complex environmental issues in a collective inquiry 
settin^^. The first section discusses interpretive structural modeling as it can be used for 
collective inquiry and presents an overview of an interpretive structural modeling 
exorcise. Later sections of the appendix discuss the computer equipment and the 
interpretive structunal modeling (ISM) software package. 

Wh at is Interpretive Structural Modeling ? 

Interpretive structural modeling (ISM) is a computer-aided method to assist a group 
()f people in studying and analyzing complex problems. It is appropriate to use ISM when 
the issue or problem under study can be broken down into the component parts that 
(le»sf rit)e the situation. Participants in an ISM exercise define the structure of a complex 
svsttMTi by torii.sing on the relationships between the elements of the system. 



Some ISM applications include: 

• a study of children with learning disabilities; 

• work with neighborhood groups to identify factors involved in neighborhood 
crime; 

• an analysis of the Goals for Dallas; 

• a long-range planning study of the Sahel region of Africa'^ 

• the identification of goals for a state-planning effort; 

• defining the objectives of PLANALSUCAR, an agency involved in the 
Brazilian National Alcohol Fueh Program; 

• establishing priorities for teacl^er in-r^ervice edvxvvficn programs; and 

• a study of envirorimenta! issuer: by high school biology ana soci^nl studies 
students. 

Sometimes the model dc/eAOped to reflect the group's existing knowledge; at 

other times the model is structured ter additional study about the is^ue* The results of 

an ISM exercise are: 

m r\ f^rcacer iinderstandirig of the rornplex issue or problem throvigh focused 
debars* and clearly defined terms; 

• an f^a.NiI'V undej^stood model or diagram that shows the structure of the 
Issu ?; and ^ 

^ some d'?^;ree of order to the problem so that .solutions can be more readily 
identified, 

rht*rctorc.\ thv^ IS\'t method can bo a useful tool for environmental education, 

[:n(*o'jr.-..^{r)j^rarticipatiOf) in Collective Inquiry 

Manv tnwrronipental educators are concerned with the question of hew to encourage 
broat1(T nartif ig.ition in collective inquiry- Increased citizen involvement in urban issues 
srrvrs as a y^no(\ oxample, Ca^llective Inquiry is more likely to lead to effective issue 
r('sol;itior) when it: 

L tak(*s ifito a(*( our^t -^^^^ romplexity of the problem or issue; 

ft^' ulrs from a wkIo base of influence and supporting resources; and 

^ sti(v\s .in a\var^»n(»ss of tiie high intordeper ^dency that characterizes urban 
sor 10 tv. 



When confronted with a complex, environmental issue, people may be highly 
uncertain and ignorant about the dynamics involved* There is a need, therefore, for a 
learning process that can help people (citizens as well as political and organizational 
leaders) to create a shared understanding of the issue. 

In Volume 3, Creating a Regional Environmental Learning System , we presented a 
discussion of the collective inquiry and action processes dialogue, decision, action, and 
evaluation and explained how collective inquiry can be used to address and resolve 
regional environmental issues. Interpretive structural modeling can contribute to more 
effective collective inquiry, by encouraging participation in the discussions about the 
environmental issue. 

Some of the features of ISM that have appealed to collective inquiry groups make it 
an effective method for environmental education. These features include: 

• provides a clearer understanding of the issue under study; 

• makes maximum use of the group*s previous research; 

• organizes their collective knowledge; 
leads to consensus; and 

• provides d way to communicate the results of the group's work. 

An Ovemew oj arj^ Interpreti ve Structural M o deling Exercise 

To do an ISM exercise, a group first decides on a meaningful set of elements and an 
appropriate relationship to study. The next step is to use the chosen relationship to 
discuss how the olernents aro related to one another. This discussion should lead the group 
to .1 new undrrstandin^ of the total system of elements and relationships. The graphical 
rrpr(VSonttition, or structural model, which is produced with the aid of a computer, serves 
as the b.Asis for developing this understanding. 

("^urirn; an ISM exercise tfie computer functions as a bookkeeper, displayir.g the 
(Questions for the ^;(wv.p to discuss, maintaining logical consistency, and recording the 
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responses. The computer is programmed to do this. This appendix includes detailed 
intv/rmalion about the computer programs for ISM* 

During a typical ISM session the participants are seated at tables, with TV monitors 
located so that everyone can see one, A telephone receiver connects a small portable 
termmal with the computer. The TV monitors are wired to the terminal to provide a 
vi'sual display for the participants. It is desirable to have a printer available to provide a 
typewritten copy of the session. A blackboard or flipchart is useful, and a special ISM 
Notetaking Form (Figure 1) should be provided for the participants. 
An interpretive structural mod^'lint^ exercise has six stepr>? 
I. Orientir^i< the exeicise 

C*:?r.er.::tinj< the elemeins and choosing the relationohlp 
3. Structuring the elements with the rf.lationship 
^4. Amenvling the model 

Lxploring the implications of the model 
Oocumentioftv evaluating, and communicating 
T^.e mdii-y purpose of the orientation is to establish c'ear expectations for the ISM 
*»xerris(\ Thiis top ir^rludes such tasks as choosing an environmental topic to model, 
setting, the schedule tor the ses'sions, acquairUing the participants witi) the ISM process, 
.:ukI rlj.rityin^^ the roles during the !SM exercise* The topic can be divided into specific 
/irv\>.s tor the partu' ipant*^ to research individv2'?vlly or in task forces. Resource speakers 
c:\n provi^le background inlormation throuf^h l^^ctures and additional resource materials. 

Iv; the -ef.ond si.ep ol the ISM execcijie, the group generater- a list of elements t!iat 
rontnbwte to \\\c enviriMimenta! prpbiLuri or issue and chooses the relationship that will be 
'.js^.»(1 for thr rno(!t-iiniU Duriii^; the discussion?;, to produce this element list the participants 
S'Vjff* Vwr resrarrh* on tnc environmentai topic and develop an initial definition for 
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Tl^.e third step of the ISM process irwolves the use of the computer to structure the 
elements with the relationship. For the structuring sessions, you will need access to the 
computer by way of a terminal, telephone connection, and television monitors. You will 
also need someone to set up the equipment and manage the terminal during the 
structuring sessions. In addition to the physical setup, you must also arrange to use the 
ISM computer softvA are package. Detailed information about computer equipment and the 
ISMS-UD software package is presented in later sections of this appendix. 

With the terminal, telephone connection, and television monitors in place, you are 
ready to begin structuring. During the structuring sessions, the computer prompts the 
group to systematically examine the relationships between the elements, by displaying 
questions on the monitors. As each question appears on the TV monitor, the participants 
discuss their views and arrive at a response. A yes or no vote is recorded at the end of 
the discussion for each question. The leader's role during structuring is to guide the 
discussion land call for a vote to answer the questions, and the terminal manager^s role is 
to operate the computer equipment. At the end of the structuring, the computer prints 
out the information needed to draw the model that the group has produced. 

fi-xperience has shown that it always4akes longer to model than a beginner might 
expect. The time required to produce a model is a function of the number of questions 
that ti e i\coup must answer, and the number of questions is a function of the number of 
elenients to be modeled. As the number of elements increases, the number of questions to 
br answered rises exponentially. The computer is programmed to infer some of the 
r*Mationships, thereby reducing t'ne number of questions to be answered. In addition, when 
X new i^lrnnent is introduced the computer calculates the best sequence of questions to ask 
so that t!)e <;roup ran examine all the interconnections in the most efficient way. 

\<>t('takin^ IS also an important part of the modeling sessions. Notes on each 
r^Mationship can be h(*lpful in later review oi the model, and may point to areas that 



require further study. A special form (Figure 1) for notetaking during an ISM session is 
available. 

At certain points, you may stop the sequence of questions and use the computer to 
display the results of the modeling, from which you may, draw a diagram of the model. 
The computer does not actually draw the model, but it prints out the information you need 
to nnake the drawing. The group can examine the drawing and review its understanding of 
the issue.. 

Sometimes the model includes a cycle among several elements. Within a cycle, 
every element is related to every other element. When a model includes a cycle, the 
group can give structure to that part of the model by discussing ' the strength of 
relationships between the cycle elements. By weighting the elements, it is possible to 
identify the strongest relationships within the cycle, thus further clarifying the^ model's 
structure. 

In interpretive structural modeling, the final model emerges slowly, as much as a 
• result of amending as of the initial structuring process. Often amending will be done both 
during modeling sessions and through outside staff work. Periodically, the group should 
examine the structural model for internal consistency and logic, and then amend as 
necessary. The first model may not be satisfactory it may contain relationships that 
do not oxist, or perhaps an absence of relationships that should be there. The ISM 
software includes the capability to make any refinements in the model that the group 
t(v*ls nerossary. 

Somrtinirs the easiest way to amend the model is to remove one of the elements 
Irorn thr fnocjcl and rework it through the usual series of questions. In other words, 
[)rornpt(Hi hv the computer, the group reworks the element back into the modeL The 
jfTK^ndmg prc^cpss rails for a word of v/arning: the leader should be careful that the model 
thr j;roui) fus spent sever. \l hours to construct is not destroyed by haphazard amending. 
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To achieve a useful model the group should take time to explore the implications of 
the model. This mi^ht include, for example, discussing the assumptions that are implicit 
in the model. Another way to approach the model would be to identify key points (for 
example, points whei . the model branches). If these points can be considered strategic 
places to intervene, the group could spend some time discussing what persons or 
institutions mi^^ht be most effective in resolving the issue under study. 

Consider, too, how the model can be helpful in evaluating possible outcomes qf 
alternative actions. Does the model suggest anything about what is right or wrong with 

i 

our present approaches to the environmental issue or problem? 

To summarize these possible discussion points, we offer this list of suggested 
questions: 

• h How can the model be interpreted? , 

2. What was learned? 

3. What can be said about the assumptions behind the model? j 

k\ Hoes the model suggest any course of action that could help resolve the' 
environmental issue? | 

5. U ho should be involved in the solution? 

f>. Other ideas? 

The fmal stop in an 15M exercise is to document the process and the model for later 
reference, although the extent to which a model is formally documented will depend on 
flow you intend to use it. The documentation might include a summary of how the model 
was developed, comments from the discussion, the element list and definitions, 
conclusions drawr^ from the model, and so on. Usually the documentation of the ISM 
(^xef' ise IS oiilv adequate as a summary for the participants. The group- must use other 
nifttiods to . jminurucatr the results to others who did not participate in the ISM sessions. 

Siru ISM exercises vary considerably (leaders, participants, issues, time spent), 
♦ Mi \) p\rr' ise should fn: ovaluatrd in terms of the purposes and goals of that particular 



exercise. Avoid comparisori:^ with other ISM exercises, using comparison only to assist 
planners and leaders in improving their skills with the ISM process. 

It is clear that the steps in an interpretive structural modeling exercise closely 
correspond with the processes of collective inquiry and action discussed in Volume 3, 
Field testing, described in Volume ^, Conducting Collective Inquiry , and previous 
applications of ISM have shown it to be an effective method for collective inquiry. 

Subsequent sections of this appendix present information about the computer 
equipment and the ISM software package needed to use interpretive structural modeling 
for collective inquiry and action. 

Computer Equipment for Interpretive Structural Modeling 

This section provides a description of computer equipment that is suitable for 
implementing ISM, First, there is a discussion of the modular approach to the computer 
equipment. The modular approach allows freedom to select equipment that meets budget 
and computer capability requirements. Next, we discuss alternative equipment for each 
module. Finally, the alternative equipment is combined to provide some alternative 
system configurations. Most of these system configurations have already been used and 
proven in during interpretive structural modeling exercises. 

The equipment and the systems recommended in this section are representative of 
the current technology available. The reader should be aware of the fact that prices 
fluctuate with the state of the art in computers and computer peripherals. When it comes 
time to acquire equipment, be sure to check various models and different manufacturers' 
equipnieDt to (it^termine how to get the most computer capability for your dollar, 

Modular Approac h to llqiiiprnent 

In tins sec:tion, we discuss a modular approach to configuring computer equipment 
tor h\U A modular approach facilitates the design of a system to maximize capability 
ami ffunirni/e ( ost. We use this approach because of the varying budgets of possible 
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purchasers, T^^e computer equipment for ISM has four distinct subsystems. These 
subsystems are: the computer system, display units, graphics units, and voting systems. 
The iirs\: two subsystems are required; the last two are optional. 

The c omputer system is the heart of the equipment. It consists of the central 
processing unit, memory, and peripherals. The computer is the device that executes 
software and drives the display and graphics units. We will describe the alternative 
computer systems later in thi^ section. 

The di splay units (more commonly called terminals) provide thf^ '^^^terface between 
the users and the computer equipment. A display unit looks siir .;r to a typewriter 
keyboard, but it usually has a CRT (cathode ray tube), i.e., TV-type screen or monitor, 
and/or a printer mechanism. The CRT-type units usually have a plug available so that a 
limited number of extra monitors can be attached, which increases the number of people 
able to see the computer's output. You will need at least one display unit. 

A graphic unit is also a display unit, but it is considered separately because of the 
additional functions it can perform. The graphic units (graphics terminals) look almost 
identical to the display units; both have keyboards and CRTs. However, the graphic unit 
adds the capability of color, bar graphs, and other features that a display unit does not 
have. Since it costs ten to fifteen times more than a display unit, a graphic unit is an 
optional device for ISM. 

The fourth subsystem is the voting unit . A voting unit is electronic equipment that 
ran accept vote 'Values'' (weighted voting) and display the results. These units allow users 
to voto secretly (instead of by a ha id vote) and provide many statistics related to the 
vote. Tins device allows the rapid and accurate tally of votes when large numbers of 
[)eoplo are mvol ved^/f^ucT to itslTi^hsCost, the voting unit is also optional. 

\k-)(iiilr Jl^f'srriptions ^'^s^ 

In tfus sortion we describe alternative modules for each of thMour subsystems. To 
fanhtatr tho purchase and maintenance of equipment, this selection is limited to 
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off-the-shelf units. There are many equipment manufacturers; the selection of the 
following equipment is based upon manufacturer's reputation and warranties, as well as 
our experiences u^iing the equipment. 
Co mputer System s 

One computer system that could be used for interpretive structural modeling is that 
of a university, local corporation, or timesharing computer company. This would involve- 
contracting with the computer installation an access agreement that allows the use of the 
computer resources. There are some major economic advantages to this arrangement. 
First, the purchase and maintenance costs of a computer system are completely 
eliminated. Second, since the computer system will be accessed via the community ^ 
telephone system, the resources of this large computer system could be available to every 
phone subscriber. Some disadvantages 'are that the use of this system could be restricted 
to certain times of the day and certain days of the week. /\lso, computer malfunctions 
can cause disruptions of computer sessions. The cost of the uSing the system can also be 
limiting. Ideally, timesharing costs should be based on a cost per access, Howe.er, some 
computer services also include a minimum monthly charge that could exceed the amount 
of time used. Since cost of a timesharing system such as this varies, no price estimate 
can be given. 

The second computer system is 'he TRS-80, which falls in the $1 ,000-$^, 000 price 
category, as of mid- 1979. It is a co nputer system manufactured by Tandy Electronics 
and m.^rketed by Radio Shack. The TRS-80 is easily maintained, since there are over 
b/jOO Shark stores throughout the United States and in nine foreign countries. 

UxpandiHi; and upgrading the system are easy to do with the peripherals manufactured by 
Tandy and numerous snuill companies. A disadvantage of this system is that the expansion 
IS linuted to a single user. T\\o exc\ ution of very large programs is limited to the amount 
.^t [n<Mn(>rv in t^e system. 
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The Cromernco System Three Computer has been sele/jtecj. as the third computer 
systefiu In mid-ly79, its price is approximately $10, OOff to $20^000, The System Three 
I'^ornputer is a table-top system which will provide fast execution of RELS tasks, as well 
as other tasks such as word processing, inventory, and payroll. The system is easily 
expandable, utilizing the industry sta..dard S-100 bus architecture, which makes o mailable 
low cost memory and peripheral interfaces. Up to eight simultaneous users are able to 
use the system, and no special environmentally controlled rooms are required. The one 
major disadvantage with the system is that it will require a maintenance contract from an 
outside company. 

The last computer system to be discussed is the Hewlett-Packard 3000 Series II 
computer system. This is a full scale computer system costing over $1^0,000. It is 
capable ot handling the processing requirements of local governments and school systems. 
The computer can be easily expanded (although not at a low cost) to provide support for 
up to 53 simultaneous users. Many upgrade and expansion options are available; they 
permit the system to be tailored to specific needs. The large initial investment and 
maintenance contract prices, however, might be prohibitive. A system of this size 
.(^quires a staff of personnel to operate it and to provide programming help. It should be 
rioted thvit a computer system of this size is likely to be more than is needed for 
colle^ctive inquiry m a kCLS. 

[^ispl i\ 1 'nits 

The first display unit is the Digi-Log Model Telecomputer II CRT ternyinal. This 
terminal features a built-in acoustic telephone coupler, a slave port for a printer, ^0 and 
SO characters p'^r line, and a video 'Output jack for connecting compatible video 
equiuii^ent, such as extra monitors and video recorders. This device costs about $1,500, 
and requires a closerl rirciiit television (CCTV) monitor (about $150) for operation. 

The second display unit is the Teleray 1000 series intelligent CRT terminal. It 
t*'atures wsrv (programmable functions; software selectable character size, selectable 
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fields incluiiin^ dim, inverse video, blinking, and underline; and a slave port for a printer, 
requires an e^xternal acoustic coupler (about $200), if a telephone interface is to be 
used, C urrently, the Teleray 1000 costs about $900, 

l^oth types oi display units are capable of driving additional video monitors. The 
video monitors are the type used in a CCTV system with a composite video input. It 
sh be I oted that a K^rge screen television can also be used as a video monitor. Any of 
ihc A\L . fi.odel (or eq'jivalent) large screen displays are compatible with the above 
units- A large screen display costs over $^^000. However, many metropolitan areas, there 
are audio/video specialty shops that will rent a large screen display for about $150 a day. 

The third display unit, the Texas Instruments Model 7U5 Silent 700, which is a 
printer type device. This unit weighs 15 pounds and has its own built-in acoustic 
telephone coupler, it is a complete unit in itself. An optional $50 interface, allows this 
unit to double as an R5-232-C printer for the above two display units. With a price of 
$1,'^00, this dual-purpose unit is an excellent choice. 



The fourth display^init, the Texas Instruments Model 800 terminal is also a printer 
type device. This terminal features a printer speed of 120 characters, per second and an 
upper and lower v:ase character set. It can also be used as a hardcopy printer for an 
RS-212-r compatible device. Its price is approximately $2,300. 

Ci rap>^ics I 'ni ts 

The recommended grriphics units are the Tektronix ^027 and the Ramtek 
Micro^raphlcs color graphics terminals. These terminals feature color displays, slave 
printer and plotter ports, user definable fonts, and the capability of driving additional 
rc:TV monitors, [devices such as the ones named above cost over $10,000. / 

Vot>ng_l^evices 

At this writin;:;, only one commercially manufactured voting device, called 
(^onsensor, is available* This unit will support up to 16 voters. It visually displays 
statistics such as the distribution, average weighting, and The mean of the vote 





distribution. Its display device displays the information either nunnerically or in a 
histogram tormal. The price of this unit is about $8,700 plus installation, 

A I ter n a tive c. :onfiguration s 

In this section we suggest some alternative configurations of the above mentioned 
equipment. Although not all configurations will be .optimum for every situation, they 
should serve to provide a direction for the eventual equipment selection. Not included in 
these configurations are the cables and the extension cords required. These items are of a 
variable cost and cari be supplied by the equipment manufacturers, 

Conf it;uration 1 is designed around the use of a timesharing computer system. The 
equipment recommended is th'^ Digi-Log CRT terminal, T^xas Instruments Model 7^5 
display unit, and six CCTV monitors. This equipment configuration allows computer 
sessions with up to twelve participants. By adding a large screen display, approximately 
fifteen to thirty participants can be accommodated. The approximate total cost is 
$'^500, excluding the large screen display, 

Conf it:;urarion 2 is also designed around the use of a timesharing computer. It 
consists of equipmrnt in configuration I, with the addition of the Tektronix ^027 color 
graphh^s terminal, "his addition costs another $10,000 and gives color display capability. 

Configuration 3 is the Radio Shack TRS-80 microcomputer system, which is 
recommended for sin).',le use situations. This system provides sufficient computing power 
for the ISM software. 

Configuration ^ consists of the Cromemco Systenn Three computer, and any 
(XMnhination of dispuiy and graphics units. This configuration will provide support for the 
ISM sofrwar' as well as for word processing, inventory, and payroll with up to eight 
sirTiiiltan(Mv.;s ustTS. The cost of the basic system is about $10,000 for one user; additional 
usrc ■ iiMbilicy fosts ap[;roximately $2,000 each, 

Cof^tKuirtiticm ') is a full-si/.ed computer system that can support up to 5^ users and 

provide .rrvK as on- line record keeping, payroll, and others. It consists of the 
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Hewlett-Packard iOQO series minicomputer and any combination of display and graphics 
units. Such a system would cost over $160,000. 

Manufacturers 



Croir^emro, Inc, DIGULOG Systems, Inc, 

280 hernado Avenue Babylon Road 

Mountain Views CA 9^f0^0 Horsham, PA 190^^ 

Teleray Texas Instruments 

Hivision of Research, inc. Digital Systems Division 

Box 2^06^ P.O. Box 

Minneapolis, MN Houston, TX "bb^lM 

Hewlett-Packard Co. Consensor 

( A-xnputer Systems Groups Applied Futures, Inc. 

100 Wolfe Road 22 Greenwich Plaza 

Cupetino, CA 9501/4 Greeiawich, CT 06830 

Radio Shack 

Division of Tandy Corporation 
2hl7 W\ 7th Street 
Port Worth, TX 7^107 



Strategies for Obtainin g nquipment 

This sfMTtion presents strategies for obtaining the computer equipment needed for 
interpretive structural modeling. We discuss some strategies for acquiring computer 
equipment and recruiting personnel capable of interconnecting and operating the 
ec|uipiTUMit. The readrr cafi apply tnese and other appropriate strategies to configure and 
support a < omputer svsteni suital)le for interpretive structural modeling. 

! 't ili/ir)v^j ( ornrrujnitv Uesoiirces 

Onf^ ('ornnuinity resource to tc.p is the computer professional someone whose 
( i]C)atu)n IS [)rogram, design, and procure computer systems. Computer professionals 
fi-.av he vital to the successful implementation of ISM. Ideally, you will form a team of 
( orn[)ut^'r [)r(Mrssi(Mials with varying expertise. Systems analysts, computer engineers, and 
proj^r-.tfTifTuTs .ill have skills to c:ontribute. A systems analyst is concerned with the 



computer d:> a total system to serve a useful function, such as banking, payroll, and record 
systems. Since this total system incorporates both the hardware (equipment) and the 
software (proy^rams), a systems analyst has broad knowledge that should be valuable. The 
computer en^meer has a college degree in either electrical or computer engineering. The 
on^^inoer's job is to design the computer equipment or to configure computer equipment to 
periorm tasks related to production, energy management, etc. Although the computer 
engineer is basically hardware oriented, his or her expertise i;^ a valuable asset, especially 
when utili/ing borrowed and donated computer equipment. The programmer's job is to 
prof.»rain computers to perform a variety of tasks. The programmer can help maintain the 
software and install it on your computer system. When assenr.bling a team of computer 
professionals, try to recruit at least one of each type. These people work for such 
institutions as banks, schools, universities , and businesses. 

The second community resource to investigate is the wealth of computer equipment. 
Possibly, computer equipment can be begged, borrowed, or bought from universities, local 
companies, and bcal, state, .aid Federal agencies. A moderately large local university 
probably has a timesharing computer system and a meeting room equipped with the 
required electronic devices. Local companies might donate their old computer equipment, 
The donation of computer equipment by state and Federal agencies is another way to 
obtain equipment, A RCL5 is likely to qualify for a discount on the purchase of new and 
used computer equipment from manufacturers and local computer stores. 

IVobably the best way to locate sources for the use, donation, and purchase of 
computed equi[)ment is to rely on the computer experts. *They will know of local computer 
installations, equipment in their company (or another) that is slated for replacement, and 
local computer vendors, 

['^(weU^jMiient of a Support Plan 

hecaiise ot the large investment ot time and money, some support plan for the 
( orFi|)uter system is necessary. Computer systems require support for both the system 
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harciware and the software. The support or maintenance oi the hardware is taken care of 
during the warranty period; after that period, support is provided through a maintenance 
service contract or by a computer engineer or technician. The system software requires 
maintenance whenever errors in the programs are found. No matter how many times a 
computer program has been used, some latent programming errors rnay still exist 
especially within a large, complex program such as the interpretive structural modeling 
software package. The computer programmer, or another computer professional on your 
team, can correct these errors. 

In summary, the details of the support plan depend on the specific equipment 
configurations you are using. In general, we recommend you develop a support plan early, 
allowing for as many contingencies as possible, so you can maximize the use of your 
computer equipment and software packages. 

Progr ammer's Overview of the Interpretive 
Structural Modeling Software Package 

The purpose of this programmer's overview is to document the Interpretive 
Structural Modeling Software (ISMS) package developed by the University of Dayton. 
ISMS-L'D version 2 is a software package consisting of three interactive FORTRAN IV 
programs that aid in conducting ISM sessions. We document these programs in such a way 
that a computer professional can easily install them on other existing computer systems, 
liarlier versions of ISMS-UD have been successfully installed on various large and small 
computer systems, from small PDP-li's to CDC Cyber*s. Included at the end of this 
section is a partial list of facilities that have installed ISM^-UD. 

This section proceeds as follows. Fnrst, we offer a general description of ISMS-UD 
to af^quaint tfie reader with the system scenario. Second, we discuss the installation of 
ISMS-Un from a user's point of view. Then we cover the installation details, including 
tile torrnais and core storage requirements* Four attachments supplement this 
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doCLjmentation, Auachrnent 1 is the detailed liocumentAtion of the machine algorithms 
that ccnorrse IS.MS-tJD, Avtachment 2 is the interpretive structural modeling software. 
It is <\ user's manual tor ISMS-UD^ as it has been installed at the University of Dayton* 
nCLTA charts tor ISMS-UO are included as A\tttachrnent 3. Attachment ^, which is bound 
separately Irorn this part of the appendix, consists of the P'ORTRAN programs for 
ISMS-UD. 

, lS\'iS The System 

(nlerpretive iitrucTural modehng ^ is a method that helps peopln? ihink and 
commi^nirate more effectively about complex issues and problems^ ISMS is a series of 
algorithms tfut have been coded to allow machine execution of ISM, Warfield (1976) has 
presented previous discussions ol these algorithms, Warfield's hook will serve as an 
excellent reference for the documentation of the ISM algorithms. 

ISMS-i n consists of tnree interactive FORTRAN IV programs — I5MS-UD, CYCLE, 
iind \1AK[-IT, The !S\\S-l.Jn program includes the rudiments of ISM; that is, embedding 
(Transjtivr Bordering Method) and some sophisticated digraph amending algorithms. 
tlVCLl. perf^uts the resolution of cycles that may be included in an ISM digraph output of 
the ISWS-ri*^ program. Wesohjlion thresholds, geodetic cycles, and their associated paths 
are the pn.narv outputs of CYCLl:. The third program in the package, MAKEIT, allows 
both ISMS-IT') and v*:YC.Li.l to present queries to the user in an English text format. 
\tAKl'IT accepts a sequentially oriented file, usually created by the host cpmputer text 
editor, and rctonruits it inio aruither file th.it is randomly accessed by ISMS-L!f3 and 
('VcMJ , h*u:u:(* 2 IS a l.)!ock diagram c^f the system. 

ISMS-rn was designed aful developed on the University of Dayton Univac Series 
/n/7 timesharing (:om[)utcr system under the VS/9 version 3.5 operating system and 
I-ORT!( ^N IV compiler t^dl'OK*. The Umvac system is an updated RCA Specira. wliich is 
a hardWiiH^ duplicate of .in IIVM 360 but witli virtual storage facilities. AlthoUj?^h ^'irtiial 
st(nM)»,(» IS not rcquireul iv^r th(» iiv.tallati'.M', of ISMS-i!!"), it is desirable. 
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ISMS - - A Use r's View 

This section provides the installer with information needed by the user of ISMS-UD. 
Since the operating systems/executives on various computers differ, we oresent a 
^^onoralizec) discussion of installation alternatives. The University of Dayton ISMS-UD 
user's guide (Attachment 2) 'supplements this section. The user's guide serves both as 
documentation of the software and as a model for user's guides for other installations. 

The potential users of ISMS range from teachers in the classroonn to researchers in 
laboratories to public administrators in the meeting room. Due to this wide diversity of 
users, It is important to install ISMS in such a way that little or no knowledge of the host 
computer job control language (JCL) is required. There are two approaches to this. One 
way (and probably the best) is to incorporate the operating system interface as part of the 
!SMS package. The software would query the user for names of disk files and check for 
validity of files, etc. This technique usually requires the writing of machine language 
routines to gain access to file handling routines via FORTRAN language. The second way 
IS to incorporate ICL into "submit" or "catalogued procedures" (hereafter referred to as 
PRCX' tiles), if the operating system used supports this feature. 

F'ollowmg are the throe CROC files that were written for the execution of the 

ISWS-Ur software on the University of Dayton Univac Series 70 timesharing computer. 

Tlu-se tiles provide disk file linkage and finally execute the respective program. The 

(ampersand) allows parameters specified by the user to become part of the 3CL. 

/PROCCnURr. N, ((VSI:QTI-XT) 

/riLE .'.'Sl:OTL-XT, LINKrHSETlQ, PCBTYPfl^SAM 

/l-ILi: PNn.eVSligTPXT, LINK^DSETOS, FCBTYPE::ISAM, SPACE=(3,3) 

/r.x[:'.:iJTE makeit.e 

/Pr.LEASE nSETIO 
/1vM-LI:AS[: nSET08 
/ENDPROC RETURN. (I'RIMARY) 

The above PROC is named "MAKEIT" and is invoked by: 
/no MAKEIT, (ENV.TEXT.l) 
uhr.e ENV.TEXT,I is the name of a user-created text file. 




The PROC file first links ENV.TEXT.l to FORTRAN unit reference 10. The second 
operation is to create a file named "RND.EN V.TEXT. 1" as an output file to hold the 
randomized text. Next, he interactive program MAKEIT.E is invoked and the user then 
interacts with it. Upon termination, the FORTRAN logical units are released and the 
PROC is ended. 

! 

The most important thing to note about this PROC is the {creation of an "invisible" 

(invisible to the user) file to hold the randomized text. The user only has to remember the 

name of his or her original text file to access the second "invisible" file. The next two 

PROC files u-^e the "invisible" file. 

/PROCEni'RE N,(ifMODEL, .JcTEXT) 

/FILE JcMODEL, LINK^DSETIO, FCBTYPE-ISAM 

/FIl F RND.lVTEXT, LINK = DSET08, FCBTYPE=ISAM 

/EXECUTE liMS-UD.E 

/RELEASE DSETIO 

/RELEASE DSET08 

/ENDPROC RETURN=(PR1MARY) 

The above PROC is named "15MS-UD" and invoked by: 

/no 15MS-Un, (ENVl.MOD, ENV.TEXT.l) 

where "ENVLMOD" is the file where the model information is to be stored and 

"ENV.TEXT.l" is the same file from above. It should be noted that the file "RND.ENV. 

TEXT.l" IS actually linked. 

/PROCEOURE N, (ArCYCLE, ATEXT) 

/FILE .Vc:YCLE, LINKrnSET20, FCBTYPE^ISAM 

/FILE RND.lVTEXT, LINKrDSETOS, FCBTYPE^ISAM 

/EXECUTE CYCLE.E 

/PFLEASE nSET20 

/RELEASE nSETOS ' 

/ENPROC [Ic rURN-(PRlMARY) 

The above PROC is named "CYCLE" and invoked by: 

/no CYCLE, (ENVl.CYC, ENV.TEXT.l) 
where "ENVl.CYC" is the file where the cycle information is to be stored and 
ENV.TEXT.l is the same file from above. 
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Ihf^ greatest flexibility of ISM.^-UD is its ability to access data files. The user of 
ISMS IS primarily concerned with the models he or she has stored on disk files. For this 
reason, 1S\1S-IJD should be installed on a computer system that is file oriented . This 
point cannot be stressed strongly enough. 

Here we might note the design philosophy behind ISMS-UD. There were many 
earlit*' versions of lS\iS-UD each of which had different designs and characteristics. 
ISMS-UD Version 2 incorporates what we felt to be the best operating characteristics for 
software of this type. I SMS-UD will not tutor the user in its use . It is imperative that 
tfie user have some knowledge of ISM and its basic principl es. The software does have 
error traps so that the user can never input any erroneous data. The user will gain 
confidence in ISMS after a small amount of practice on the terminal. 

File Formats 

lS\^S-ljr)'s system block diagram is shown in Figure 3. ISMS-UD is an interactive 
system, which means that the user must respond to queries for input from the programs 
wfiile tfiov are executing. Examples of such user-provided input might be the answering 
of queries that specify' a binary matrix representing a hierarchy, operations to be 
performfnl on this matrix, results to be displayed, and the like. For the user^s 
convenience, the results of each matrix operation are automatically stored on the user- 
specitied cl<ita tile, allowing the programs to be terminated (normally or due to computer 
hardware error-.) at any stage and restarted at a later time withbut loss of the matrix 
rrah/ation. There are three types of files that ISMS-UD will accept* They are: 1) 
serjuontial Xr\X filr-s, 2) random access text files, and 3) model files* Each of the three 
tvpes vil! be disrussed below. 

The sequ( ntial text file is used as input to the program MAKEIT and contains 
control and text records. Figure ^ shows an example of a sequential text file. The 
c-ontrol records precede the text desired for the tour types of text records Ri clause, 
U2 flause, U3 clause, and element text* The control records are identified by a (slash) 
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BINARY 
MATRIX 
VCDEL 
FILE 



WEIGHTED 
MATRIX 
MODEL 
FILE 



PROGRAM 
ISMS-UD 



PROGRAM 
CYCLE 



RANDOM 
TEXT 
FILE 



PROGRAM 
MAKE IT 



SEOUEN- 
TIAL 

TEXT 
Fl LE 



HOST SYSTEM 
TEXT EPITOR 



F-igure 3: ISMS-IJD System Block Diagram 
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in the first column; therefore, no text record should begin with a *V**. All of the four 
types ot text records may have up to 10 lines with a maximum of 60 characters on each 
line (600 characters). The sequential text file, as its nanie implies, is accessed 
sequentially by MAKEIT. The sequential text file may be created and maintained by the 
host computer file editor, or it could simply be a deck of computer cards. 



/Rl 

DOES 

/R2 

aXggravate or intensify 

/R3 

IN MOST CASES? 
/EL 

CITIZEN INSECURITY IN THE ABC NEIGHBORHOOD 
/EL 

GOOD MARKET FOR STOLEN GOODS 
/EL 

INADEQUATE CRIMINAL REHABILITATION 
/EL 

LACK OF SUMMER JOBS FOR TH^ YOUTH IN THE ABC AREA 
/EL 

L \CK OF SEVERITY OF PUNISHMENT FOR CRIMES 

/EL 

LOW VISIBILITY OF UNIFORMED POLICE 
//END OF ELEMENT LIST 



Figure Sample Text File 



The random text file is required by programs ISMS-UD and CYCLE, if the user opts 
to havo those programs present English text queries instead of the standard numeric type. 
Tho ISM method roquiros that elements be accessible in random order; that is, although 
the eUnnrnts arc ordered by the user in some desired sequential order when creating the 
sequential text filr«, the introduction of user responses to relational queries determines a 
new nonsequential presentation of the future queries. For this reason, a random (direct) 
access hie is utili^d. The random text file, created by MAKEIT, contains all of the 
textual mtorrnation of the sequential file, but has the property that the text of any 
specific ('lenient may be retrieved independently of the positioning of the file due to a 
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previous access. The format of the randomized text file is shown in Figure 5, Figure 6 
shows the format of an individual record of the random text file. 

There are two types of model files binary and weighted. The binary model file is 
used by the ISMS-UD program and contains the binary reachability matrix associated with 
the ISM method. The weighted model file is used by the CYCLE program and contains a 
weighted adjacency matrix. These two files are accessed sequentially and are opened and 
closed a number of times during program execution. The formats of both the binary and 
weighted matrix files are shown in Figure 7. 

The ISMS-IJD software has been designed In sudh a way that the binary and weighted 
operation matrices are core resident in order to speed up execution time. Therefore, the 
size of these matrix data structures directly affects the amount of core storage required 
due to the static allocation of memory characteristics of FORTRAN IV. On a computer 
with a limited amount of interactive core storage, ISMS-UD might be Implemented with 
element and cycle resolution limits of something less than the current limit of 128 and 50. 
The ISMS-UD program requires 150K bytes, CYCLE requires 120K bytes, and MAKEIT 
requires 'iSK bytes on the Univac Series 70/7 computer. , These core requirements should 
be somewhat lower on other computer systems -- the Univac system used at the 
University of Dayton requires high overhead for FORTRAN-run time routines. The 
overlay structures used for program ^SMS-UD and CYCLE are shown in Figure 8. 

The binary matrices used in the ISMS-UD program are of the type "LOGICAL 
This defines the FORTRAN logical mode and allocates only one byte per matrix cell. 
Note that this data structure requires one fourth the amount of core storage as a 
"LOGICAL" matrix. The programmer should try to use the data structure in his or her 
computer that uses the smallest amount of directly addressable storage. The use of 
"IMPLICIT INTEGER *2" statements utilizes halfword precision for all integer variables, 
thereby further reducing the core requirements. Ail variables requiring full word storage 
; have be( n,declarrd as "INTEGER". 
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1 

2 
3 
4 
5 
6 



n 4 



number of element text records 



Rl clause record 



R2 clause record 
R3 clause record 



Element 1 clause record 



Element 2 clause record 



Element n clause record 



Figure 5: Format of the Randomized Text File 



number of words required 
to hold line n of clause 



lines of packed text--each 
line begins on a word boundary 



— ^ 




1 


2 


3 




5 


6 


7 


8 


9 


10 





word 



Figure 6: Format of a Text Record within the Randomized Text File 
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number 
of 

elements 


Binary reachability matrix 


Index set 
for matrix 




number 
of 

elements 


Weighted adjacency matrix 


Index set 
for matrix 




Figure 7: Format of Model Files 
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ISMS-UD 
ELIM 



c 
(I 

00 



c 

to 

a 

Co 
I 

C 

o 

< 
ST 

n 
zr 

3 



BORDER DIGLEV DIGSTG ADDEL ERASE ADEDGE EREDGE POOL ELCONT 



FINDIT 
10 



TBPHI 



FINDZ 
VI SET 
V2SET 
ZER 



TRNCLS 



COMBIN DISPST DISPLV HIERCH STAN CONDE SKLTN QUEST GETNUM 

SWITCH 



CYCLE 



CHANGE 



ADD 



DELETE 



FILL 



RESOLV 



GEOD 
NOTR 



TRNCLS 



PRNTMT 



QUEST 



FINDIT 



GETNUM 
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Organizations that have Obtained I SMS-UD 



Boeing Computer Services 
20403-68th Avenue, South 
Bldg. 18-^3, Door S-^ 
Kent, Washington 98031 

CACI, Inc. -Federal 

1815 North Fort Myer Drive 

Arlington, Virginia 22209 

IBM Corporation 
I/S Market Analysis Support 
1000 Westchester Avenue 
White Plains, New York 1060^ 

Old Dominion University 
Department of Electrical Engineering 
Norfolk, Virginia 23508 

Portland State University 
630 SW Mill 

Portland, Oregon 97207 



3oe C* Roberts 
1519 Meadowcrest 
Garland, Texas 750^2 

Transportation Systems 
GM Technical Center 
12 Mile 6c Mound Roads 
Warren, Michigan ^8090 

Tektronix, Inc. 
Box 500 

Beaverton, Oregon 97077 

University of Ottawa 
Computing Center, Operations 
375 Nicholas Street, 3rd Floor 
Ottawa, Ontario 
KIN 6N5 
CANADA 
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Attachment No. 1 
DOCUMENTATldN OF THE ISMS ALGORITHMS 



Prepared by: 
David R» Yingling, 3r. 
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This attachment provides a description of some of the algorithms 
used in ISMS-UD version 2. Although these algorithms have been 
comprehensively tested, the descriptions should be useful for 
debugging and future applications of ISM. The algorithms in this 
section are stated in the form used by Knuth (1973). 
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Attachment 1 - 1 



1 



\ 



EQBIi£& 



ISMS SUBROUTINE/FUNtTION NAME 
FUNCTION 

USAGE 



PARAMETERS 



N 



RM 



INDEX - 



TTYIN - 



BORDER 

Embeds a 1 emen ts 
bi 1 i tv natrix 
c!ue5 1 i on i ri9 . 



into an existing reacha- 
via i nterac t i ve 



CALL BORDER(N,RM, INDEX , TTYIN, TTYOUT, 
QT YPE . SUBREL , T X T WDS . SYS ) 

I nput /Out put integer seal ar i nd i cat i ng 
the current number of elements in the 
argument reachabi 1 i tv matr ix, 

I n put /Output 1 ogi cal two dimens i onal 
matrix of dimensions •'C^YS" X "SYS", 
This \s the argument reachability 
mat r ix« 

I n put /Out put integer vector of 1 engt h 
"SYS" containing the index set for 
■•RM", 

Input integer scalar used as unit number 
in FORTRAN READ statements directed to 
i nteract i ve termi nal . 



TTYOUT - Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to 1 n t e r ac t i ve term i na 1 . 

QTYF'E - Input logical var i ab 1 e i nd i cat i ng type 
of *RuerY to be presented . 
QTYPE = .FALSE, causes full text 
queries to be used. 
QTYPE = .TRUE, causes symbol ic 
«=iueries to b*:- used. 

SUBREL - Input logical variable indicating type 
of relationship to be modeled. 
SUBREL = .FALSE. imp.lies a non- 
subordinate re 1 at i onsh ip is being 
rriode led. ^ 

SUBREL = • TRUE . implies a subordinate 
relationship is being modeled and 
ciues t i on 1 ng can therefore be 
opt imi zed. 
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1 



TXTWDS - IrtP<:t intefier scalar e«iual to (60/nchar) 
♦ lO^-iOf u)heri&: nchar » number of dis-- 
plav codf^ characters able to be con- 
tained in one machine ujord^ ' 



SYS - Input integer scalar used in FORTRAN 
DIMENSION statements. 

COMMON BLOCKS FTEXT - Named integer common block ov length 

5*nXTWDS". 

COMMON PARAMETERS Rl - Integer vector of dimension "TXTWDS". 

Rl( 1-10) contain the number of 

machine words fjor each of 
the ten possible lines of 



the Rl clause 
Rl(ll-end) contain the lines of text 
for the Rl clause. the 
text is packed ujith as many 
characters as possible in 
one machine ujord and each 
line starts on a word 
boundary. 

L2 - Integer vector of length "TXTWDS". this 

vector is used as a scratch ar^ja. 

R2 - Same attributes as "Rl". the R2 clause 

is contained in this vector. 

L2 - Same attributes as "LI"- 

R3 - Same attributes as "Rl". the R3 clause 

i s contained in this vector . 

The common block "FTEXT" is used for full text 
queries. It is the calling routine's responsibi- 
lity to fill vectors "Rl"> "R2", and "R3" if full 
^ text «^ueries are desired. 

REQUIRED ISMS ROUTINES - TBPHI » FINDZ i GETNUM» QUESTi I 0» F INDI T 

REQUIRED FORTRAN ROUTINES - None 



ALGORITHM EMPLOYED - Transitive bordering on a reachability 

matrix. A description follows: 

Algorithm TB (Transitive Bordering Algorithm). Given the number of 
e 1 emen 1 5 currently in a 1 og i cal matr ix» m» the logical matr ix» R» 
and the associated index set vectors* I» embed a new element* b» 
capitalising on inference and transitivity. 



TBI. [Initialize.] Set dimphi < — n2. Set vector FLAGi flatiCi] < — 
.falsisr.i vector Z» zCi3 < — .false., matrix PHIi phiCiiJ] < — 
• f al se. » 1 = 1 1 2» ... 1 dimphi i J = l i 2i . • . i dimphi . 

TB2. [Make sure physical bounds of arrays and vectors are not 

exceeded.] If (n ^ 1) <= FORTRAN dimension sizes thten so to step 
TB3. Otherwise* type error message to interactive user and 
return to calling routine, 

TBS, [Get value for b from interactive user • ] Prompt useri call sub- 
routine GETNUtii put value read in bi set iCn + 1] < — b. If b=0 
then return to ca'iling program. 

TB4. [Make sure that neiu value, bv is not duplicated.] Call subrou- 
tine FINDITi if b has been already introduced into model matrix? 
issue error message and then go to step TB3. 

TB5. [Make sure that textual information for b resides o.n text file.] ^ 
If full text queries are not being usedi skip immediately to step * 
TB6. Read record from file. If no error condition is encoun- 
tered* go to step TB6. Gtheruiisei issue error message and then 
go to step TBS. 

TB6. [Form the transitive bordering inference opportunity matrix.] 
Form Phi (call subroutine TBPHI). 

TB7. [Calculate the rouj/column of Phi with the maximum inference 
potential! zpoint.] Call subroutine FINDZ- 

TBS. [Determine if a question filling the "y"* portion of the reacha- 
bility matrix is to be asked by examining the value of zpoint.] 
relate < — zpoint. If zpoint > then go to step TBIO. 

TB'"^. [Ask for the "x" question and check for valid response.] Call 

subroutine CiUEST ( i [ re 1 a te ] i iCm 1]). Read response from user. 
zzz : — .True.. If user typed "AB"i go to step TBSl* if user 
didn t type either a "V or ''N'S issue error|message and then 9o 
to step TB9. If user typed "Y"i zzz < — .false. and then go to 
step TBll. If user typed "N" then go to step TB12. 

TBlu. [A?i: the "y" question and check for valid response.] Call sub- 
routine QUEST(i[m 111 iCzpoint - m]). Read response from 
•jser> zzz < — .false.. If user typed "AB", gc to step TBSl, if 
user didn t type either a "V* or "N'S issue error message and 
then go to step TBIO. If user typed "Y"i zzz < — .true. and 
then go to step TBU. If user typed "N" then go to step TBr2. 
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TBll. [Process a ves answer to a «»uerY.] If zzz = .false.t then 90 to 
step TB17, else go to step TB13. 



TB12. [Process a no answer to a query. 3 If zzz = .false.t then .90 to 
step TB17. 

TB13. [ Initial ize. 3 Set J < — 1. 

TB14. [Search row of Phi for inference to be entered onto R. ] If phi- 
[zpoint, J] false., then so to step TB16. 

TB15, [Fill UP R with infered ones and zeros^j ictr2 <-- ^ J. If ictr2t 

> n, then ictr2 <-% ictr2 - n. If J > n, then r[n + It ictr2] 

< — .true.. Otherwise, r[ictr2t m + 1]< — .false.. Set fla3[J3 
<— .true.t zCJ] < — .true.. 

TB16. [Loop on J.] J < — J + 1 . If J <= dimphi, then 90 to step 
TB14» else so to step TB20. 

TB17. [Initialize.] J <— 1 

TB18. [Search c.lumn of Phi for inference to be entered onto R. 3 if 
phi [ J 7 zpoint] = .false.t then 90 to step TB20. 

TB19. [Fill UP R with infered ones and zeros.] ictr2 < — Jt if ictr2 

> n, then ictr2 < — ictr2 - n. If J > n, then rim + l,ictr2] 

■ — .false., otherwise r[ictr2,n + 1] < — .true.. Set fla9[J] 
< — .true., z(J) < — .true. 

TB20. [Loop on J.] J < — J ■♦• 1. if J <= dimphi, then so to step 
TB18. 

TB21. [Initialize.] J < — 1 

TB22. [Zero out rows and columns of Phi used in steps TB19 and TB15. 3 
If z[.j] = .false., then 90 to step TB24. 

TB23. [Zero row and column J.] phi[J,k! < — .false., phi[k,J] <- - 
.false., k=l ,2, ...» dimphi . 

TB24. [Loop on J.] J < — J ■♦• 1 . I f J <= dimphi, then 90 to step 
TB22. 

TB25. rinitialize.] J < — 1 

T&26. [Check to see if Phi i? all zeros via flag vector.] If flag[j] 
= .false., then go to step TB30. 
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TB27, CLoop on j.] j < — 
TB26. 



J + 1. If J <= dimphii then 90 to step 



TB2S, [Set mam diagonal of R. ] rCm + 1 1 m 13 <I — .true.> n < — n -♦• 
1. 

TB29. [Update permanent file uith neu R matrix.] Call subroutine IO1 
then 90 to. step TBI, 

TB30. [Zero out 2.] zCJ] < — .false. 1 J=l » 2i . . . 1 dimphi . Go to step 
TB7. 

TB31. [Write out message indicating abort of bordering session.] 
Write message and then go to step TBI. 




IBEUl 



ISI^S SUB. 
FUNCION 



3^,q;^INE/ 



FLINT I ON NAME - TBPHI 



USAGE 



PARAMETERS 



N 



Forms the Inference Opportunity Matrix 
used in the Transitive Bordering 
Al9orithm. 



- CALi. TBPHI (N.A,DIMPHIiSUBREL»SYS2,SYS) 



PHI 



DIMPHI - 



Input integer scalar indicating the cur- 
rent numfcer of elements in matrix "A". 
Input logical two dimensional matrix of 
dimension "SYS" X "SYS". This is the^ 
current reachabilitv matrix model. 
Output logical two dimensional matrix of- 
dimension "SYS2" X "SYS2". This is 
the output inference opportunity 
matrix. 

Input integer scalar indicating the 

number of rows/columns in "PHI" which ' 
contain information. This variable 
should be. set e««ual to 2»"N". 
^UBREL -| Input logical variab'le indicating tYF^e^-^ 
of relationship being modeled. 
SUBREL = .FALSE. implies a noh- . 
subordinate relationship is being 
model ed. 

SUBREL = .TRUE, .implies non- 
subordinate relationship is being 
modeled and the "PHI" matrix should 
calculated differently. 



be 



COMMON BLOCHS 



REQUIRED ISMS ROUTINES 



SYS2 - Input integer scalar used in FORTRAN 

DIMENSION statements. "SYS2" is equal 
to 2* "SYS". 

SYS ^- "Input integer scalar used in FORTRAN 
DIMENSION statements. 



None 



- None 
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10, 



REQUIRED FORTRAN RCHJT* None 

ALGORITHM EMPLOYED • The algorithm employed is described 

belouis 

Algorithm FP (Form the Inference Opportunity Matrix^ PHI> for Transi- 
tive bordering.) Given the number of elements in a reachability 
matrix^ n» and the logical r<ifachab i 1 i ty matrix? A? f orm ^an inference 
^opportunity matrix? PHI. 

FPl. [Form the n 1". mat r ix. ] Set PHI, phiCi,j] < — aCi,J], phiCi + 
^ n, J + n] < — aCi^JD-f PhiCi + n^J] < — •NOT.aCJ^i], i2j . . . 
i = l?2»..,7ri. 

FP2. EProcess request for subordinate relationships.] Set PHI, phiCi' 

+ n,i] < — .true., i=l,2»...,n if subrel is .true.. 

/« , . • 

FP3. [Multiply.] Set phiCi,J + n] .false. Then set phiCi,J + n] 

< — PhiCa^i.j ^ n] .OR.ed with the quantity phiCi + n»k] .AND.ed 
ujith phiiCk + n,J + n], k=li2i...,n, J = l,2,.,.,ni i = l,2,«..,ri. 

FP4. [Multiple,] Set PhiCi + n,J] < — .false-., then set phiCi + n,J] 
< — phiCi + n,j] .OR.ed with the quantity phiCi,k] .AND.ed with 
ph 1 C k , J + n ] , k = L, 2 , . - . , n , J = 1 , 2 , . . . , n , i = 1 , 2 , . . . , n . 

FP5r^ [Set upper right half of matrix to zero.] Set phiCi,.j] < — 
.false., j=n-*-l , n+2, . . . , 2-«-n, i = l,2,...,n. 
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ISMS SUBROUTINE/FUNCTICiN NAME - FINDZ 
FUNi: T I ON 



USAGE 

PARAMETERS 



- Finds the roui/column of an inference 

opportunitY matrix that has maxirrium 
inference potential. 

- CALL FINDZ(DIMPHI, PHI, ZPOINT, FLAG, SYS2) 

DIMPHI - Input irteser scalar indicatins the 

number of rows and columns filled in 
the matrix "PHI". 

PHI - Input logical two dimensional matrix of 
dimensions "SYS2" X "SYS2". This is 
the inference opportunity matrix. 

ZPOINT - Output integer scalar which contains the 
row/column number in "PHI" with maxi- 
mum inference potential. This value 
is returned to the calling routine. 

FLAG - Input logical vector indicating rows/ 
columns of "PHI" which have been 
zeroed out as a result of the transi- 
tive bordering process. A .true, 
indicates that a row and column has 
been zeroed out. 



SYs: 



COMMON BLOCKS 
REQUIRED ISMS ROUTINES 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



- Input integer scalar used in 



DIMENSION statements. "SYS2" 



FORTRAN 

is e«iual 



to 2»"SYS". 



- None 

- V1SET,V2SET 

- MINO,MAXO 

- The algorithm employed is described 

be 1 ow: 



Algorithm F2 (Find a value for Z that has the maximum inference poten- 
tial.) Given the number of rows and columns in a logical matrix, 
dimphi, the logical matrix, PHI, and a logical vector indicating 
rows and columns of PHI that have^been zeroed out, FLAG, find the 
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row/column of PHI that has the maximum inference potential and set 
variable zpoint e«^ual to this subscript. 

FZl. [Form the set V.] Set vector VI » vlCiD < — number of ones in 

column i of PHI (applv algorithm VI). Set vector V27 v2Ci] < — 
number of ones in row i of PHI (applv alsorithm V2). If flasCiD 
is .false. 7 i = l727...» dimphi . | 

FZ2. [Form the set V".] Set vector MIN7 minCi] < — the smaller of the 
two values? vlli] or v2Ci] if f'lasCi] is .false. 7 
i = l ? 2? . . . 7 dimphi . 

FZ3. [Find the maximum of the minimums of V'.] (Initialize.) Set 
bi99er < — O7 zpoint 0. 

FZ4. [Fill UP vector Z.D Set bis < — the larsest of the two values7 
bisser or minCi]. If bis is greater than bisseri then zero out 
vector Z7 zCk] < — .false. 7 k=l727...7i. If bis is less than or 
equal to minCi]7 then set rCi] < — .true. 7 If bis is sreater than 
or equal to bisser? then set bisser < — bis? i=l 7 2? . . . 7 dimph i . 
Do the above step only if f lasC i] = • fal se. . 

FZ^.. [Form set V" and select a "Z".] Set bisser < — 0. Set bis < — 

the sreater of the two values7 vlCi] + vzCi] or bisser. If biss- 
er IS sreater than bis? then set bisser < — bis and zpoint < — i? 
1=1 7 2? . . . 7 dimphi . Do the above step if zCi] = .true.. 
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ISMS SUBROUTINE /FUNCTION NAME - VISET 



FUNCTION 



Counts the number of ones in a selected 
column* <J)» of the inference oppor- 
tunity matrix. 



USAGE 



- X 



V1SET< J,DIM,SYS2) 



PARAMETERS 



MAT 



Input logical tuo dimensional matrix of 
dimension "SYS2" X "SYS2". This is 
the inference opportunity matrix. 



Input inteser scalar indicating the 
column of "MAT" that the counting 
operation should be applied to. 



DIM 



Input integer scalar indicating the last 
row/column of "MAT" that contains 
information. 



SYS 



Input inteser scalar used in FORTRAN 
DIMENSION statements. 



COMMON BLOCKS 



- None 



REQUIRED ISMS ROUTINES 



- None 



REQUIRED FORTRAN ROUTINES 



- None 



ALGORITHM EMPLOYED 



- The algorithm employed is described 
be 1 otjs 



Algorithm VISET (Count the number of ones in the column of a matrix), 
Given th* number of elements currently in a matrix* d» the matrix* 
M» and the number of a column in M» J» count the number of ones in 
column J of M and assign this value to s. 



VlSETl 



[Initialize.] Set s < — 0. i < — 1. 



VlSETij. [Count.] If mCi.J] « 1. then s < — s + 1 
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V1SET3. CLoop on x.3 i < — i + 1. If i <> di then 90 to step VISET 
else algorithm is complete. 
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ISMS SUBROUTINE/FUNCTION NAME - V2SET 

FUNCTION - Counts the number of ones in a selected 

row (i) of the inference opportunity 
matrix. 



USAGE 



PARAMETERS 



MAT 



DIM 



SYS2 



- X « V2SET<MAT» I»DIM»SYS2) 

-Input losical two dimensional matrix of 
dimension "SYS2" X "SYS2". This is 
the inference opportunitv matrix. 

- Input integer scalar indicating the row 

of "MAT" that the counting operation 
should be applied to. 

- Input integer scalar indicating the last 

row/column of "MAT" that contains 
information. 

- Input integer scalar used in FORTRAN 

DIMENSION statements. "SYS2" is equal 
to 2*"SYS". 



COMMON BLOCKS 



- None 



REQUIRED ISMS ROUTINES 



- None 



REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



- None 

- The algorithm employed is described 

beloiD^ 



Algorithm V2SET (Count the number of ones in the row of a matrix),' 
Given a logical matrix, M» the number of filled rows and columns in 
M, d. and the number of the row to count, i» count the total number 
of ones m row i of M and assign s to this value. 

V2SETI. [Initialize.]^ < — 0, J < — 1. 

V2SET2. [Count.] If mCitjJ « 1, then set s < — s + 1. 
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V2SET3. [Loop on j.] J < — J 1 . If J «:= d» then so to step V2SET2. 
Otherwise, alsorithm is complete. 
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ISMS SUBROUTINE/FUNCTION NAME - DIGLEV 



FUNCTION 
USAGE 

PARAMETERS 



N 



- Displays a level formatted diaraph of an 

argument reachability matrix. 

- CALL D I GLEV < N, MATRIX, INDEX, TTYOUT, SYS, > 

-• Input inteser scalar denotins the cur- 
rent number of elements in the arsu- , 
ment reachability matrix- 



MATRIX - Input loaical two dimensional matrix of 
dimension "SYS" X "SYS". This is the 
arsument reachability matrix. 

INDEX - Input inteser vector of length "SYS" 

containing the index set for "MATRIX". 

TTYOUT - Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

SYS - Input integer scalar used in FORTRAN 
DIMENSION statements. 



COMMCiN BLOCKS 
REQUIRED ISMS ROUTINES 



- None 

- H I ERCH , ST AN , SW I TH , CONDE , EL I M , SKLTN , 

DISPLV 



REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



- None 

-■ The al 9or ithm empl oyed is described 
be 1 ouii 



Algorithm DIGLEV (Display the levels formatted digraph of an argument 
reachability matrix). Given a reachability matrix, M, associated 
index set vector, I, and the current number of elements in M, n, 
display a levels formatted digraph on the interactive terminal. 

DIGLEVl. [Rearrange M and I into hierarchial form. Leave result in H 
and 0.] Apply Algorithm HEIRCH. 
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DlGLeV2. [Put H and 0 into standard form.] AppIy Algorithm STAN. 

DIGLEV:3. [Calculate condensation matrix for H and 0.] AppIy Algorithm 
CONDE. 

DIGLEV4. [Calculate skeleton matrix for H3 AppIy Algorithm SKLTN. 

DIGLEV5. [Print out levels formatted digraph.] AppIy Algorithm 
DISPLV. 
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ISMS SUBROUTINE /FUNCTION NAME - DISPLV 



FUNCTION 



Prints a levels formatted disraph from a 
lower triansular skeleton matrix. 



USAGE 



CALL DISPLV<N,SKLTN, INDEX , LEVELS, TTYOUT, 
SYS) 



PARAMETERS 



N 



Input inteser scalar indicating the 

number of elements in the input skele- 
ton matrix. 



SKLTN - Input loaical two dimensional matrix of 
dimension "SYS" X "SYS". This is the 
input lower tr iansul ar i zed skeleton 
matrix. 

INDEX - Input integer vector of length "SYS" 

containing the index set for "SKLTN". 



LEVELS - 



TTYOUT - 



SYS 



Input integer vector of length "SYS" 
containing the number of elements on 
each 1 eve 1 . 

LEVELSd) f Number of elements on each 
level #i. ^ 

Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

Input integer scalar used in FORTRAN 
DIMENSION statements. 



COMMON BLOCK 



- None 



REQUIRED ISMS ROUTINES 



- None 



REQUIRED FORTRAN ROUTINES 



- None 



ALGORITHM EMPLOYED 
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The algorithm emPloved is described 
bel ow: 



i 



Algorxthm DISPLV (Display a levels formatt^^d digraph on the interact 
tive terminal.) Given a losical lower triansularii^ed skeleton 
matrix^ St its a^jsociated index set vector^ D» the number of ele- 
ments in Si n» and a vector filled with the number of elements on 
each levels L» display a levels formatted disraph. 

DISPLVl. [Initialize.] i 1» level < — 0. row < — 1. 

DISPLV2* [Process next level.] level <— level + li row < — row + 
1 [level]. Write level number out on interactive terminal? 
var lab 1 e 1 eve 1 . 

DISPLV3. [Check to see if we are pr ocei^s ins level one.] If level = li 
then 90 to step DISPLVl 1. 

DISPLV4. [Start processing element #i.] count < — 0/ iminus < — i - 
1. J <~ 1. 

DISPLV5, [Find all elements that element #i reaches to-] If s[i,J] = 
0, then 1*0 to step DISPLV7. 

DISLV6. [Fill scratch print vector.] count < — count + li list[count] 
<>- d[.j].. 

DISPLV7. [Loop on J.] J < — J + !• If j <= iminus » then 9 0 to step 
' DISPLV5. ' - . 

DISPLVL. [All done processing elements #ii print it and its 

connectives.] Write elements #i and its reachability set on 
intera:tive termmali variables d[i]i list[k]i k = l t count . 

DISPLV*'^. [Are we finished with the algorithm?] i i + 1. If i <: 

n» then algorithm is complete. 

DISPLVIO* [Not done with algorithm? are we done with this level on 
digraph"'] If i - rowi then so to step DISPLV2. Otherwise? 
go to step DISPLV3. 

DIE.PLVll. CWrite out level #1 element on terminal.] Write out vari- 
able d[i]» then go to step DISPLV9. 
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ISMS SUBROUTINE/FUNCTION NAME - HIERCH 



FUNCTION 



Rearranses an input reachabilitv matrix 
into a levels partitioned hierarchial 
reachability matrix. 



USAGE 



- CALL HIERCH(N, INREAt INDXIN,REAH» INDXH. 
NL, LEVEL 1 SYS) 



PARAMETEFS 



N - Input integer scalar denoting number. 

elements in the input reachability 
n.atr ix. 

INREA - Input lo9i,cal two dimensional matrix of 
dimensions "SYS" X "SYS". This is the^ 
inRut reachability matrix. 

INDXIN - Input integer vector of length "SYS". 

This is the index set for "INREA". 

REAM - Output logical two dimension matrix of 

, dimensions "SYS" X "SYS". This is the 
output hierarchial levels partitioned 
matrix. 

INDXH - Output integer vector of length "SYS". 

This is the index se^for "REAM". 

NL - Output integer scalar indicating the . 

number of hierarchial levels in 
"REAM". 



LEVEL - Output integer vector of length "SYS" 
containing the number of elements on 
each 1 eve 1 . 

LEVELS(I) = Number of elements on 
level #i. 

SYS - Input integer scalar used in FORTRAN 
DIMENSION statements. 
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COMMON BLOCKS 



None 



REQUIRED ISMS ROUTINES 



None? 



REQUIRED FORTRAN ROUTINES 



- None 



ALGORITHM EMPLOYED 



The algorithm empl oved is de5cr i bed 
be 1 ouis 



Algorithm HIERCH (Rearrange an input reachab i 1 i 1'y matrix into a levels 
Partitioned hierarchial reachability matrix.) Given a reachability 
matri.<7 its associated index set vectorT Dt the number of ele- 
ments in Ry n> rearrange R according to a levels partition 
algorithm. Leave this result in an output reachability matrix> 
and associated index seti E. 

HIERCHl. [Initialize.] Copy R into H. Set local vector F to zero. 

hCi^j] < rCi7j37 fCiD <Z — O7 j = l72i...TnT i = li27...in. 

HIERCH2. [Initialize levels partition algorithm.] nl < — Oi neap < — 
0. 

HIERCH3. [Begin levels partition algorithm.] nl < — nl + 1> nel < — 
0. 

HIERLH4. CFind an element to process.] i < — 1. 

HIERCH5, [Skip past element row/column already processed.] If fCi] = 
1, then go to step HIERCHIO. 

HIERi:H6, [Initialize subset test.] i <: — 1. 

HIERLH7. [Te^t to see if reachable set is not a subset of antecedf^nt 
set for element #1.] If r[i7j] = 1 -AND. r[jii] = d then go 
to step HIERCHIO. 

HIERCHy. [Loop on j.] j < — j ^ 1. If j <> n^ then go to step 
HIERLH7. 

HIERlH'V. [Fill UP E.] nel < — nel ^ It e[neap + nel] < — d[i]7 local 

vector T^ t[nel] < — 1. 

HIERlHIO, [Loop on 1.] 1 < — 1 1 . If i <> ni then go to step 
HIERCHf.. 



HIEFvlHII. [Found al I elements on this level.! neap < — neap + nel 7 
vector 1 eve 1 s 7 1 eve 1 [ n 1 ] < — ne 1 . 
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HIERCH12. [Initialize i3 i <— 1. 

HIERCH13. CIdentifY a row/coluitin to b« zeroed.] x < — tCi]» fCx3 
1. 



HIERChlS. [Zero out R. ] hCx,J] <~ 0, hCJ,x] <— 0. 

HIERCH16. CLoop on J,] J < — J + 1. If J <= ri» \hen so to step 
HIERCH15. 



HIERCH17. [Loop on i.] i K — i + 1. If i <=« nel» then so to step 
HIERCH13. ' 

HIERCHIS. [Have all elements been processed?] If neap < ni then 9 
step HIERCH12. 

HIERCH19. [Initialize i . ] i <— 1 . 
HIERCH20. [Initialize J.] J <— 1. 



HIERCH21. [Locate proper J subscript.] If e[i] = d[J]i then so to 
step HIERCH23. 

HIERCH22. [Loop on J..] J < — J + 1. If J <= n, then 9 0 to step 
HIERCH21. 



HIERCH23. [Initialize k.] k <— 1. 

HIERCH24. [Rearrange rows of R and store result in H. 3 h[i»k] < — ; 
r[.j,k3. 



HIERCH25. [Loop on k. 3 k < — k + 1. If k <= ii: then so to step"" 
HIERCH24. 

HIERCH26. [Loop on i.3 i < — i + 1. If i <= n, then so to step 
HIERCH20. 

HIERCH27. [Copy H into R. 3 rCiij3 < — h[iiJ3» J=l,2>...»ni 

i^liili.^iin. I. 

HIERCH28. [Initialize i.3 i < — 1. 

• S 

HIERi;.H2'^. [Initialize J. 3 J <— 1. 

HIERCH3,0. [Locate proper j subscript. 3 If e[i3 - d[J3i then so to 
step HIERCH32. 



HIER.:.H14. 



[Initialize zero out routine.] J < — 1. 




t 



HIERCH31. CLciop on J.] J <— J ■♦■ 1 . If J <= ri7 then sto to step 
HIERCH:30. 

HIERCH32. [Initialize k.,] k <:— 1 . " 

HIERCH33, [Rearrange columns of R and store in in H. ] h[k»i] <— 
r.[k,j] 

HIER:i;+<34, [Loop on k.3 k < — k + 1. If k <= u-, then 90 to step 



HIERCH3:3. 



HIERCH35. [Loop on i.] i < — i + 1 . If i => n^ then so to step 
HIERC.H29. 

HIERC.H36. [Copy E into D, copy H into R. ] d[i] <— e[i], r[i7.j] <■ 
' h[iij]? J-li2>...in> i=li2i.a.Tn> ^ 



» 
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ISMS SUBROUTINE/FUNCTION NAME - 
FUNCTION 

USAGE 

PARAMETERS N 

MATRIX - 

INDEX - 
■ NLEVEL - 
LEVELS - 

SYS 



STAN 

Converts an input hierarchial reachabi- 
lity matrix into its standard form. 

CALL STAN(N» MATRIX* INDEX » NLEVEL» LEVELS* 

SYS) 

Input inteser scalar d€fnotins the number 
of elements in "MATRIX". 

Input hierarchial reachability matrix* 
output standard form matrix. This is 
a losical two dimensional matrix with 
dimensions "SYS" X "SYS". 

Input/Ou'tput vector of length "SYS" con- 
taining the index set for. matrix. 

Input integer scalar denoting the numb<?r 
of hierarchial levels in "MATRIX". 

Input integer vector of length "SYS" 
containing the number of elements on 
each 1 eve 1 . 

LEVELSd) « Number of elements on 
level #1. 

Input integer scalar used in FORTRAN 
DIMENSION statements. 



COMMON BLOCKS , - None * 

K REOUiftED ISMS ROUTINES - SWITCH 

^ REQUIRED FORTRAN ROUTINES - None 

^ ALGORITHM EMPLOYED - The algorithm employed is de-scribed 

below: 

Algorithm STAN (Compute standard form matrix).' Given a hierarchial 
r eaciiabi 1 itv matrix, H, its associated index set vector, V, the 
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number of elements in H» n, the number- of hierarchial levels on H. 
nlevel» and a vector containins the number of elements on each 
level* L» compute the standard form of H. ' . 

STANl. [Initialize.] end <— 0, i ■ 1. 

STAN2. [Continue to check to make sure a. i non-cvcle elements are on 
top.] start < — end + 1» end < — end + Mil 

STAN3. [Check to see if number of elements is two or less.]* If Ki] 
.LE. 2, then go to step STAN13. - 

STAN4. [Find and move all non-cvcle elements together on each level.] 
i 1 < — start 

STAN5. [Initialise row check.] row < — start, last < — 0. 
STAN6. [Initialise column check.] col < — start, nones < — 0. 



STAN7. [Count number of ones.] If h[row.col] = 1, then nones < — non- 
es i . 

STAN3. [Loop on col.] col < — col + \. If col .LE. end. then 9o to 
steR ;E.TAN7. 

STAN'"'. [Check to see if a switch should be performed.] If nones .LT. 
last, th'irn applY algorithm SWITCH. 



STANIO. [Reset variable last.] If nones .GE. last, then set last < — 



STANll. [Loop on row.] row < — row ■♦■ 1. If row .LE. end. then so to 
step ':.TAN6. 

STAN 1 2. [Loop on ii.] ii < — ii^-l. Ifii .LE. end. then go to 
step STAN5. 



n o n e s . 



STANl 



[LOOP on 1.] 1 — i + 1. 
step STAN2. 



If i .LE.. 



n 1 eve 1 . then go to 



STAN 14. 



[Calculate variable nminus.] nminus < — n - 1. 



STAN IT-. 



[Set switch flag to 0.] swit < — 0. 



STAN 16. 



[Initialize i.] i < — 1 . 



•i-TANl 7. 



[Initialize j.] iplus < — i ■♦■ 1 . j < — iplus. 
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STAN18. CCbeck for ones above main diagonal.] If hCi>J3 =» 0> then so 
to step STAN21. 

STAN19. [Check to see if a switch is needed. 3 Jminus < — J - 1.' If i 
= Jminusi then so to step STAN22. 

STAN20. CAppIy alsorithm SWITCH to switch row and col J with row and 
col J-1.] AppIy algorithm SWITCH. Set swit < — 1, J < — J - 
1, then 90 to step STAN19. 

STAN21. CLoop on J. 3 J < — J + 1 . If J .LE* n» then so to step 
STANIS. 

r . 

STAN22. CLoop on i.3 i < — i + 1. If i .LE. nminus^ then so to step 
STAN17. * 

STAN23. [Check to see if anv switchins was re«iuired.3 If swit » 1, 
then so to step STANIS. 



0" ' 
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SKLIti 



ISMS SUBROLriv^E/FUNCTION NAME 
FUNCTION 



USAGE 



PARAMETERS 



N 



MATRIX 



SYS 



COMMON BLOCKS 
REQUIRED ISMS ROUTINES 



- SKLTN 

- Calculates the nonredundant adjacency 

matrix (skeleton matrix) siven a con- 
densation matrix. 

- CALL SKLTN (N,MATRIX» SYS) 

- Input integer scalar denoting the number 

of elements in "MATRIX". 

- Input/Output logical two dimensional 

matrix of dimensions "SYS" X "SYS". 
This is the input condensation matrix/ 
output skeleton matrix. 

- Input integer scalar used in FORTRAN 

DIMENSION statements. 

- None 

- None 



REQUIRED FORTRAN ROUTINES - None 

ALGORITHM EMPLOYED - The algorithm employed is similar to the 

one described by R.K. Shyamasundar in 
IEEE Transactions on Systemsi Man» and 
Cybernetics* Vol. SMC-8, No. 2* 
February* 1978. It is described 
belouj. 

Algorithm SKLTN (Calculate the nonredundant adjacency matrix). Given 
■a conderisation matrix. C» and the number of elements contained in C. 
rii calculate the skeleton matrix. 

SKLTNl. [Initialize.] nminus < — n 1. i < — 2. 
S^LTNj. CInitialize.] imxnus < — i - !» J < — 1. 

LTNl!. CLh«-ck reachability of node J to node" i, 3 If cCi.JD « 0, then 
go to step SKLTN7. 
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SKLTN4. C Initial iz«. ] iplus <— i + 1. k iplus. 

SKLTN5. [Add all nodes to row i that can b« reached from node i.] If 
cCk,j] s 1. .AND.cCk,i] » 1, then cCk,J] =« 0. 

SKLTN6. CLoop on k.] k < — k + 1. If k .LE. n, then 90 to step 
SKLTN5. 



SKLTN7. CLoop on J.] J < — J i. If J .LE. iminus» then 90 to step 
SKLTN3. 



3KLTN3. CLoop on i.] i < — i ■♦• 1 . If i .LE. nminus^ then 90 to step 
SKLTN2. 



ISMS SUBROUTINE /FUNCTION NAME - SWITCH 



FUNCTION 



- Exchanses two rows and columns on a 
binary martix. 



USAGE 



- CALL SWITCH<N»MATRIX» INDEX»ROW»SYS) 



PARAMETERS 



COMMON BLOCKS 



N - Input inteser scalar denotins the number 

of elements in "MATRIX". 

MATRIX - Input/Output losical two dimensional 
matrix of dimensions "SYS" X "SYS". 

INDEX - Input/Output vector of lensth "SYS" con- 
tainins the index s«t of "MATRIX" 

SYS • - Input inteser scalar used in FORTRAN 
DIMENSION statements. 

- None 



REQUIRED ISMS ROUTINES 



None 



REQUIRp FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



- None 

- The algorithm employed is described 

below: 



Algorithm SWITCH (Exchange two rows and columns of a binary matrix). 
Given a binary matrix* Mt its associated index sett Rt the number of 
elements in M» n» and the number of a row and column to be switched^ 
5» switch row and column s with row and column s-1. 

SWITCHl. CInitialize.] other, <— s - 1» i <~ 1. 

SWITCH!:. CSwitch rows.] temp < — mCsti]» nCsti] < — mCother>i3» 
mCotherti] < — temp. 

•:.WITCH3. CLoop on i.] i <> - i •♦• 1 . If i .LE- n» then so to step 
SWITCH2. 
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SWITCH4. [Initialize.] i <— 1. 

SWITCH5. [Switch th« columns.] temp < — inCi»5]» mCi^sD < — mCi»other]» 
m[i»other] < — temp. 

SWITCH6. [Loop on i.] i < — i + 1. If i .LE. n» then so to step 
SWITCH5. 

SWITCH?. [Switch index set.] temP < — rlsly rCs] < — r[other], rCo- 
ther] < — temp. 



I3i 
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ISMS FUNCTION/SUPROUTINE NAME - ZER 



FUNCTION 



- Zeros out a losical vector, 



USAGE 



- CALL ZER (VECTOR. I, SYS) 



PARAMETERS 



VECTOR - Input/OutPUt losical vector of lensth 
"SYS". 



- Input intesier scalar denoting star t ins 
index of values to be retained in 
"VECTOR". 



SYS 



Input integer scalar used in FORTRAN 
DIMENSION statements. 



COMMON SLOCKS 
REQUIRED ISMS ROUTINES 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



- None 

- None 

- None 

- The algorithm employed is described 

bel ou): 



Algorithm ZER (Zero out selected positions on a losical vector). 

Given a logical vector^ Vi and the value of the first index of V to 
retain^ x» zero out the vector. 

ZERl. [Initialize.] li < — i - 1» J < — 1. 

ZER2. [Zero out.] vCJ] < — 0. 

ZER5. CLoop on j,] J <. — J 1 . If J .LE. ii» then 9o to step ZER2. 
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ISMS SUBROUTINE /FUNCTION NAME - 10 
FUNCTION 



- Reads and writes ISMS information on 
disk file. 



USAGE 

PARAMETERS 



-CALL IO<N»MAT, INDEX»UNITNO»READtSYS) 

N - Input/OutFut inteaer scalar contains the 

number of elements in "MAT". 

MAT - lnf»ut/0utput logical two dimensional 
matrix of dimensions "SYS" X "SYS". 
This is the ISM binary matrix. 

INDEX - Input/OutPut inteser vector of lensth 
"SYS". This is the index set vector 
for "MAT". 

UNITNO - Input inteser scalar used as unit number 
in FORTRAN READ and WRITE statements 
for disk file. 



READ 



SYS 

COMMON BLOCKS 
REQUIRED ISM^S ROUTINES 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



- Input losical scalar used for determin- 

ins if a read or write operation is 
desired. 

READ « .TRUE. means a read operation 
is re*^uested. 

READ = .FALSE. means a write opera- 
tion is re«iuested. 

- Input inteser scalar^ used i n FORTRAN 

DIMENSION statements. 

- None 

- None 

- None 

- The alsorithm employed is described 

be 1 ow: 
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^l9orithm 10 (Read and write ISM information on disk file). Given a 
losical switch variable* r» read or write the ISM binary matrix* 
index set* atid number of elements. 

101. CDeter/mm^ if a'^read or write operation is desired.] If r = 1» 
then 9^ to) step T03. 

102. CWrite operation.] Rewind file. Write n* MAT* and INDEX. 
Algorithm is complete. 

103. CRead operation.] Rewind file. Read n* MAT* and INDEX. 
Algorithm is complete. 
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DISBSI 



ISMS SUBROUTINE/FUNCTION NAME 
FUNCTION 

» 

USAGE 

PARAMETERS N 

MATRIX 

INDEX 
STAGES 

NSTAGE 
TTYOUT 

SYS 

COMMON BLOCKS 
REQUIRED ISMS ROUTINES 
REQUIRED FORTRAN ROUTINES 



DISPST 

Prints a 5ta9€5 formatted disraph given 
an upper trianaularized skeleton 
matr ix. 



CALL D I SPST ( N , MATR I X , I NDEX . STAGES , 
NSTAGE. TTYOUT » SYS) 



Input inteser scalar eiual to the number 
of elements in "MATRIX". 

Input logical two dimensional matrix of 
dimensions "SYS" X "SYS". This is the 
upper triangularized skeleton matrix. 

Input inteser vector of length "SYS" 
containins the index set of "MATRIX". 

Input integer vector of lensth "SYS" 
containing the number of elements on 
each stage. 

STAGES(I) * Number of elements on 
stase #1. 

Input integer scalar e«iual to the total 
number of stages on "MATRIX". 

Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

Input integer scalar used in FORTRAN 
DIMENSION statements. 

None 
None 
None 



ALGORITHM EMPLOYED 



- The alsorithm employed is described 
beloa;: 



Algorithm DISPST (Print a stages formatted digraph). Given the number 
of elements currently in an upper tr iansul ar i zed skeleton matrixi n* 
the skeleton matrix^ Si the index set fop S» Ti a vector containing 
the number of elements on each stages Ri and the total number of 
stages, vi print the stages formatted digraph- 

DISPSTl. [Initialize.] row < — 1, stage <— Oi i < — 1. 

DISPST2. [Initialize this stage.] stage < — stage + li row < — row + 
r C stage ] . Wr i te out stage number on i nteract i ve termi nal i 
variable stage. 

DISPST3. [Check to see if last stage is to be pr ocessed .] I f stage = 



DISPST4. [Initialize element search.] count < — d istart < — i 1 1 
J < — istart. 5 

DISPST5. [Find all elements that element #i reaches.] If s[iiJ] = Ot 
then go to step DI3PST7. 

DISPST6. [Found one, keep a record of it.] count < — count 1? fill 
Ibcal vector LIST, _ 1 C count ] <~ t[J]. 



DISPST?, [Loop on j.] j <- j ^ 1. If J .LE. n, then go to step 
DISPST5. 

DISPSTS. [Special printing routine for elerpents with no reachability 

s'et.] If count = 0, then go to step DISPST13. 

Drif^*ST9. [All done processing element #ii print on terminal.] Write, 
out on interactive terminals t[i]i 1[k]i k=l i 2i ... i count . 

DISPSTIO, [Increment i.] i C — i -f 1 • 

DISPSTll. [Finished with algorithm?] If i .GT. ni then algorithm is 
c »mp 1 ete . 

DISPSTll'. [Finished with this stage?] If i = rowi then go to step 
DJSPST2i else go to step DISPST3. 

DISPST13. [Process last stage elements.] Write out on interactive 
terminal tli2i then go to step DISPSTIO, 



Vi then go to step DISPST13. 
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ISMS SUBROUTINE /FUNCTION NAME - FIND IT 



FUNCTION 



Determines if two elememts are cctntained/" 
in the index set of a matrix. 



USAGE 



CALL FINDIT<N>N1»N2,S1.S2, INDEX , FOUNDl » 
F0UND2»SYS) 



PARAMETERS 



N 



Input inteser scalar denoting number of 
elements contained in "INDEX". 



Nl 



Input inteser scalar e«<ual to the first 
element number to be found. 



N2 



Input inteser scalar e^ual to the second 
element number to be found. 



SI 



Output inteser scalar which is set equal 
to ♦rhe subscript of "INDEX" that "Nl" 
is found. 



S2 - Output inteser scalar which is set equal 

to the subscript of "INDEX" that "N2" 
is found. 

INDEX - Input inteser vector of lensth "SYS". 

This is an index set vector for a 
matr ix. 

FOUNDl - Output losic41 'scalar set to .true. if 
"Nl" was foundi set to .false, 
otherwise. 

F0UND2 - Output logical scalar set to .true. if 
"N2" was foundi set to .false, 
otherwise. 



>YS 



Input inteser scalar used in FORTRAN 
DIMENSION statements. 
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COMMON bLOCh:S 
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- None 
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REiaJIRED ISMS ROUTINES 



- None 



REQUIRED F.URTRAN ROUTINES 



~ None 



ALGORITHM EMPLOYED 



- The al9ori^hm emploved is described 
bel oius 



Algorithm FINDIT (Find the subscript values for two elements in anv 
index set vector). Given tuo elemv^nt numbers to be foundt nl and 
n2» .the huftiber of elements in a siven index sett n^ the index set 
vector? I> find the vector index for each> si and s27 and set a los 
ical variable for each? fl and f?i if found. ^ 

FINDITl. [Initialize.] fl -* 0. f2 <~ 0> si 0. s2 0. j <~ 
1. 

FINDIT2. CSearch.] If nl = iCJDt then set si <— J. If n2 < — iCJ]T 

then set s2 < — J. s 

FINDIT3. [Loop on J.] J < — J 1 . If J .LE« then so to step 

FINDIT2- 



FINDIT4. CSet logical variables.] If sl.st. 0> then set fl 1. 
If s2 .GT. Oy Hrhen eet f2 < — 1. 




QLGSIG 



ISMS SUBROUTINE /FUNCTION NAME - 



DIGSTG 



FUNCTION 



Oisp1«YS 9l sta9«s formatted disrash from 
«. siven r««chabi1itY matrix. 



USAGE 



CALL DIGSTG(N, MATRIX, INDEX, TTYOUT, SYS) 



PARAMETERS 



N 



Input int€fsi«r scalar denoting the number 
of elements in "MATRIX". 



MATRIX Input losical two dimensional matrix of 
dimensions "SYS" X "SYS". This is the 
input reachability matrix. 

INDEX - Input integer vector of length "SYS". 

This is the index set for "MATRIX". 

TTYOUT - Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

SYS - Input integer scalar used in FORTRAN 
. DIMENSION statements. 



COMMON BLOCKS 



None 



REQUIRED ISMS ROUTINES 



H I ERCH , STAN , SW I TCH , CONDE , EL I M , SKLTN , 
DISPST 



REQUIRED FORTRAN ROUTINES 



None 



ALGORITHM EMPLOYED 



The algorithm employed is described 
be 1 ow: 



Algorithm DIGSTG (Display the digraph of a reachability matrix in a 
stages format). Given a reachability matrix, R, its associated 
index set, X, and the number of elements in R, n, display the 
digraph in a stages format. 



DIGSTOl . 



CCheck for error condition.] If n .GT. 0» then go to step 
DIGSTG3. 




DIGST02. CWrit* out error message.] Write •rror to interactive ter- 
minal and then alsorithm is complete. 



DIC1STO3. CInitial ize. 3 i < — 1. 
DIC1STG4. C Initial ize. ] J < — 1. 

DIGSTGS. [Transpose input reachability matrix.] Set local logical 
matrixi I, tCiiJ] < — rCJii]. 

DIGSTG6. [Loop on'j.] J < — j + 1. If J .LE. n. then so to step 
DIGSTG5. 

DIGSTG7. CI OOP on 1.] i < — i 1. Ifi .LE. n "then 9o to step 
DIL.STG4. 

DIGSTG3. CCoPY T into R. 3 rCiiJ] < — tCi»J]» j=l»2i...in» 
i~li2i...in. 

DIGSTG'i^. [Levels partition T. 3 AppIy Algorithm HIERCH. 
DIGSTGIO. [Put T into standard form. 3 AppIy Algorithm STAN, 
DIGSTGll. [Compute condensation matrix of T. 3 AppIy Algorithm CONDE, 
DIGSTG12. [Calculate skeleton matrix of T. 3 AppIy Algorithm SKLTN. 
DIGSTG13!, [Initial ize. 3 i < — 1. 
DIGiTGl4. rinitial isre. 3 J < — 1. 

DIGSTG15. LTranspose T, leave result in R. 3 r[i»J3 < — t[.jii3. 

DIGSTGlt. [Loop on j . 3 J < — J + 1. If J .LE. n» then 90 to step 
DIG:E.TG1'5. 

DIGSTG17. [Loop on i.3 i < — x 1 . If i .LE. n^ then so to step 
DIGSTG14. 

DIOSTOl:^. [Print out stages digraph. 3 AppIy Algorithm DISPST. 
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ISMS SUBROLITINE/FIINCTION NAME - ELCONT 
FUNCTION 



Performs the elementary contraction 
process. 



USAGE 



PARAMETERS 



N 



REA 



INDEX - 



TTYIN - 



TTYOUT 



SYS 



COMMON BLOCKS 



REOUIRED ISMS ROUTINES 



REQUIRED FORTRAN ROUTINES 



ALGORITHM EMPLOYED 



CALL ELCONT (N» REA, INDEX » TTYIN, TTYOUT » 
SYS) 

In^ut/Output inteser scalar e«iual to the 
number of elements in "REA". 

In^ut/Output losical two dimensional ' 
matrix of dimensions "SYS" X "SYS", 

Input/OutPut inteser vector of lensth 
"SYS'* containing the index set of 
"REA". 

Input inteser scalar'^used as unit number- 
in FORTRAN READ statements directed to 
interactive terminal. 

Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

Input intesier scalar used in FORTRAN 
DIMENSION statements. 

None 

GETNUM . F I ND I T , H I ERCH . STAN , SW I TCH . CONDE, 
EL I M t SKL TN . COMB I N . TRNCLS , 1 0 



- None . 

The algorithm employed is described 
belou: 



Algorithm ELCONT (Contract tu;o adjacent elements on different levels 
or stages). Gi^en a reachability matrix* R» its associated index 
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set vectors* Ti and the number oi? elements in Ri ni ask the user for 
tuio elements and perform the elementary contraction process^ 



ELCONTl. [Accept two number from interactive terminal.] AppIv 
Algorithm GETNUM. 

ELC:0NT2. [Check to see if numbers are a^ero. ] If u ^ 0 or v « Oi then 
algorithm is compl ete, 

ELC0NT3. [Check to see if numbers are in index set. 3 Ar»plY Alsorithrr 
FINDIT. If u and/or v are/is not found?, then write appropri- 
ate error message on i nteract i ve termi nal and then so to step 
ELCONTl. 

ELC0NT4. [Set nn. ] nn < — n. 

ELC0NT5. [Calculate non-redundant adJacencv matrix for '*REA'^ ] AppIv 
Algorithm HIERCH, Algorithm STANt Algorithm CONDEi Algorithm 
SKLTN. Fill UP local vector Z with index set of ncn- 
redundant adJacencv matrix and local matrix A with matrix. 

ELC0NT6. [Check to see if u and v are adjacent.] AppIy Algorithm FIN- 
DIT in order to obtain the row and column subscripts for u 
and v^ iu» iv. If u and v are found on A and a[iuiiv] = 1? 
then go to step ELC0NT8. 

ELC0NT7. [Element u is not adjacent to element v.] Write appropriate 
error message on interactive terminal and then go to step 
ELCONTl. 

ELC0NT3. ' [Accept new index value from interactive terminal for con- 
tracted elements.] AppI v Algorithm GETNUM. If newnam = Ch 
then the a1 gor i thm is compl ete. 

ELCONT?'. [Check to see if newnam is already in index set.] AppI v 
Algorithm FINDIT. If newnam is already used» then write 
appropriate error message on interactive terminal! and then go 
to step ELC0NT8. 

ELCONTIO. [Combine el ements u and v and use newnam as index val ue. ] 
Apply Algorithm COMBIN. 

ELCONTl 1. [Calculate reachability of new element.] Apply Algorithm 
TRNCLS, 

EL»;.nNTlI;, [Update permanent file with new matrix.] Apply Algorithm 10 
and then go to step ELCONTl. 
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CQCiQE 

IShS SUBROUTINE/FUNCTION NAME 
FUNCTION 

USAGE 

PARAMETERS N 

MATRIX 

INDEX 

LEVELS 

TTYOUT 
TYPE 



CONDE 

Computes the condensation matrix of a 
spi ven standard form matr ix. 

CALL CONDE ( N . MATR I X . I NDE X » LEVELS » TTYOUT , 
TYPE » SYS) 



Input/OutPut integer scalar denoting the 
number of elements in the input stan- 
dard form matrix/number of elements in 
the output condensation matrix. 

Input/Output logical two dimensional 
matrix of dimensions ''SYS" X "SYS". 
Thi s is the i nput standard form 
matrix/output condensation matrix. 

I n put /Out put i nteser vector of length 
"SYS". This is the index set of the 
input standard form matrix/output con- 
densation matrix. 

Input/OutPut integer vector of length 
"SYS". This vector contains the numb- 
er of^e 1 ements on each 1 eve 1 of the 
input standard form matrix/output con- 
densation matrix. 

Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

Input logical scalar used to determine 
if the printing of cycIc-s at the 
interactive terminal is to be 
performed. 

TYPE » .TRUE. means print CYcles. 
TYPE - .FALSE, means not to print 
CYC 1 es . 



1 



SYS - Input integer scalar used in FORTRAN 
DIMENSION statements. 

COMMON BLOCKS - None 

REQUIRED ISMS ROUTINES - ELIM 

REQUIRED FORTRAN ROUTINES - None 

ALGORITHM EMPLOYED - The alsorithm employed is /lescribed 

belows ^ 

Algorithm CONDE (Compute the condensation matrix of a siven standard 
form matrix. ) Given a standard form matrix? S» its associated index 
set vector* Rs the number of elements in S» ni a vector with the 
number of elements on each level on St Lt and a variable that tells 
whether or not to print the cvclesi bi reduce all cYcle sets to a 
sinsle proxy element by eliminating elements to finally yield the 
condensat i on matrix. 

CONDEl. [Initialize i.] i < — 1. 

C0NDE2. [Initialize.] count < — \^ J < — i -f 1 » local scratch vector 
T, til] <— r[ ]. 

C0NDE3. [Check for a one above main diagonal (cvcle).] If sCi.JD = 0, 
then 30 to step CONDEl 1. 

C0NDE4. tPut found cvcle element in print out list and eliminate from 
matrix.] count < — count + 1» tCcountD <• — rCJ]. applv 
algorithm ELIM. 

CONDET'. C Initial ize. 3 positn < — 0» ii < — 1. 

CC1NDE6. [Find proper element to chanse in L. 3 positn < — ■ Positn + 
Hi]. If positn .OE. J. then so to step C0NDE3. 

C0NDE7. [Loop on li.] ii < — ii + 1. If ii .LE. n, then go to step 
CONDE 6. 

CONDES. [Reduce number of elements on level where an element was 
eliminated.] Kii] < — Kii] - 1. 

CuNCiE"^. CAriv more elements in this cvcle set?] If s[i.J3 = 1 .AND. J 
.LE. n, then so to step C0NDE4^ 

CONDEIO. [Write cvcle ou* to interactive terminal.] If b « 1» then 
write out t[iii]» 1 1 1 -1 » 2» ...» count . 
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CONDEll. [Loop on i.3 i <— i + 1. If i .LT. Ht then so to step 
CCINDE2. 
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ISMS SUlJROUTINE/FUNCTION NAME - GETNUM 
FUNCTION 



Reads n unsigned integers from an 

interactive terminal in a free format. 



USAGE 



- CALL GETNUM(ARRAY,N»TTYIN»TTYOUT> 



PARAMETERS 



ARRAY - Output integer vector of length "N". 

This vector contains the number as 
read from the terminal 
ARRAY(l) 5= First number7 etc- 



N 



TTYIN - 



TTYOUT 



COMMON BLOCKS 
REQUIRED ISMS ROUTINE 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



Input integer equal to the number of 
integers to be read - 

Input integer scalar used as unit number 
in FORTRAN READ statements directed to 
interactive terminal - 

Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal - 

None 

No ne 

None 

The algorithm employed is described 
bel ouiS 



Algorithm GETNUM (Read **n** unsigned integers in a free format)- Given 
the vector to store the integers^ Ai the number of integers to readt 
fti read "n" unsigned integers from the interactive terminal. 

OETNUMK [Read in string from terminal.] Read into local vector B. 

0ETNUM2. [Initialize.] 1 < — n» aCl] 0, power < — Ch i <— 1 . 

Ho 
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GETNUM3. CS«*rch backwards through strins lookin» for d«l iminter*. 3 k 
< — 81 - 1. If bCk] =» blank or a comma* then »o to step* 
GETNUM9. 

GETNUM4. CInitial ize. ] J <— 1» ii <— J - 1. 

GETNLIMS. [Check asainst holerith constant vector (nums).] If bCk3 
.NE. numsCJ3» then 90 to step GETNUM7. 

GETNUM6. [Construct integer.] aCH < — aC13 + (ii * ( 10*#poiuer ) ) , 
poui^r < — power + 1» then go to step GETNUM12. 

GETNUM7. CLoop on J. 3 J < — J 1. If J .LE, 10, then so to step 
GETNUM5. 

GETNUH8. [Character found was not numeric. 3 Write error messase and 
then 90 to step GETNUMl. 

GETNUM9. [Check for end of number. 3 If aCl 3 « 0» then 90 to step 
GETNUMl 2. 

GETNLIMIO. [Decrement 1 and check for completion.] 1 <-~ 1-1. If 1 
= 0, then 90 to step GETNUM13. 

GETNUMl 1. C Initial ize. 3 aC13 < — 0, power < — 0. 

GETNUM12. [Loop on i.3 i < — i + 1 . If i .LE. 80, then 90 to step 
GETNUM3. 

GETNUM13. [ Initial ize. 3 i < — 1. 

GETNUM14. [Check maemitude of each number. 3 If aCi3 .GT. 99999, then 
so to step GETNUM16. 

0ETNUM15. [Loop on. 3 i < — i + 1. If i .LE. n, then so to step GET- 
NUM14. Otherwise, algorithm is complete. 

GETNUM16. [Numbers too larsie.3 Write out error messase and then so to 
step GETNUMl. 
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ISMS SUBROUTINE /FUNCTION NAME - COMB IN 
FUNCTION 



Comb in*- s two rows and columns in a 
reachability matrix. 



USAGE 



- CALL COMBIN(N»REA> INDEX, lU, IVtNEWNAM. 
SYS) 



PARAMETERS 



N 



REA 



lU 



IV 



Input/Output inteser scalar esual 
number of elements in "REA". 



to the 



INDEX - 



NEWNAM 



SYS 



COMMON ttLOCH S 



REQUIRED ISMS ROUTINES 



REQUIRED FORTRAN ROUTINES 



Input/Output losical two dimensional 
matrix of dimensions "SYS" X "SYS". 
This is the argument reachability 
matr ix. 

InPut/Output inteser vector of lensth 
"SYS" containing the index set of 
"REA". 

Input inteser scalar e«^ual to the row/ 
column subscript of the first elements 
to be combined. 

Input integer scalar €«=«ual to the row/ 
column subscript of the second element 
to be combined. 

Input integer scalar esual to the integ- 
er to be used in the index set. for the 
combined elements. 

Input integer scalar Used in FORTRAN 
DIMENSION statements. 



- None 



- ELIM 



- None 
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ALGORITHM EMPLOYED 



- Th# Algorithm 
b«1 ouiS 



empl oved 



described 



Alsorithm COMBIN (Replace row and colu?nn iv uiith the boolean sum of 
row and column xu and iv). Given the number of elements in a 
reachability matrix* n» the reachability matrix* R» its associated 
index set vector* T» the two roif/column indices to combine* iu and 
iv» and the value to be replaced in the index set for the combined 
element* neuinim* combine iu and iv via boolean sum. method and 
replaced index name with newnam. 

COMBINl. [Initialize.] i <— 1. 

C0MBIN2. [Replace row iv with boolean sum of rows iu and iv. ] rCiv^i] 
< — rCiu, i] .OR. rCiv» i]. 

C0MBIN3. [Replace column iv with boolean sum of columns iu and iv. 3 
r[i»iv] < — r[iiiu] .OR. rCi»iv3. 

C0MBIN4. [Loop on i.] i < — i 1 . If i .lE. n* then go to step 
C0MBIN2. 

C0MBIN5. [Replace iv's index with newnam. 3 tCivD < — newnam. 
C0MBIN6. [Erase row» column* and index for iu.] AppIy Alsorithm ELIM. 
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ISMS SUBROUTINE/FUNCTION NAME - QUEST 
FUNCTION 



Displays the queries used durins an 
embeddins session uiith ISM. 



USAGE 

PARAMETERS 



:.OMMON BLOCK'S 



- CALL QUEST(ELl,EL2,TTY0UT,QTYPEiTXTWDS) 

ELI - Input integer scalar which is e«?ual to 
the index value of the first element 
to be di spI aved. 

EL2 ^ Input inteser scalar which is e*iual to 
the index value of the second element 
to be di spI aved. 

TTYOUT - Input inteser scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal . 

QTYPE - Input integer scalar used to determine 
if full text or symbolic queries 
QTYPE = .TRUE., means that symbolic 

««ueries wil 1 be. used. 
QTYPE = .FALSE. means that full text 

queries* will be used. 

TXTWDS - Input integer scalar which is equal to 
t he number of mach i ne words requi red^ 
to hold 600 display code characters 
plus 10. 

FTEXT - Named integer common block 



See the description under subroutine BORDER for "FTEXT'* parameters 
REQUIRED ISMS ROUTINES None 



REQUIRED FORTRAN ROUTINES 



ALGORITHM EMPLOYED 



- None 

- The algorithm employed is described 

be 1 ow2 
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Algorithm QUEST (Display the ISM quer ies *in either full text or sYrn- 
belie formats/. Given the index values of each element to be dis- 

Vplavedt el and e2T a switch variable which determines what tvpe of 
queries to use^ «It and a common block filled with the introductorvi 
relational 7 and qualifying phrasesi display the query. 



QUESTl. [Determine query type to be presented.] If q = li then 'go to 
step QUEST12. 

QUEST2. [Calculate direct access file of f set. 3 il <— el + 4^ 12 < — 

QUESTj. [Read elemenW' text file and put in common block.] Read 
^ T'Z'Cord il andT^lace in "LI". Read record i2 and place in 
"L2". 

QUEST4. [Initialize.] offset < — i < — 1. 
QUESTS. [Initialise.] il <~ d 12 <— Oi J <— 1. 

QUES 6. [Check length indicator.] (NOTE: a local vector^ is equi- 
valenced to the common block.) If b[j + offset] = 0^ then go 
to step GJUEST9. 

QUEST7. [Compute length end location of print l:'tne.] length < — b[j 
offset ]» il < — i2 + 1» i2 < — il + length - 1- 

QUESTS. [Print line of interactive terminal.] Write out h[c + offset 
+ 10] y c=i 1 ... 1 i2. 

CiUEST*"^ [Loop on j.] J < — J + 1. If J .LE. Id then go to step 
QUEST6. 

QUESTIO. [Update offset into common block.] offset < — offset + 
txtujds . 

ClUESTll. [Loop on i.] i < — i + 1. If i .LE- 5i . then go to step 
QUEST?. Otherujise algorithm is complete. 

UUEST12. [Present symbolic (numeric) «^ueries.] Write out el. e2. 
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ISMS SUBROUTINE/FUNCTION NAME - ELIM 



FUNCTION 



Eliminates an el€frTient from a siven 
bi narv mat r ix. 



USAGE 



- CALL ELIM(N, MATRIX, INDEX, DELETE, SYS, ) 



PARAMETERS 



N - Input/Output integer scalar denoting the 

number of elements in the argument 
ma t r i >^ . 

MATRIX - Input/Output logical two dimensional 
matrix of dimensions ^^SYS" X ••SYS'\ 
This is the matrix to be operated on. 

INDEX - Input/Output integer vector of length 
»'SYS*'. This is the index set of 
••MATRIX". 



DELETE - Input integer scalar denoting tht jb- 
script of the rou) and column of the 
el ement to be el iminated. 

SYS - In put integer scalar used in FORTRAN 
DIMENSION statements. 



COMMON BLUL'hS 



REOUIRED ISMS ROUTIN;^S 



None 
None 



REOUIRED FuRTRAN ROUTINES 



- None 



AL'jORITHM EMPLOYED 



The algorithm employed is described 
be 1 ou): 



Algorithm ELIM (Eliminate an element from a matrix). Given an argu- 
ment matri' T M^ its associated* i ndex set vectori R, the number of 
'Elements in M» n^ and the rou) and column to eliminatei di remove row 
^nd >:o1umn d on M and shift the matrix up and to the left to get rid 
• if blan^ rou; and column. 
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ELIMl., [Initialize.] nminus < — n - 1. 

ELIM2. [Check to see if row and column to be deleted is last losical 
position on M.3 If d .EQ. ni then bo to step ELIM14» 

ELIM3. [Initialize roul.] roul < — d. 

ELIM4. [Initialize col.l rouj2 < — roul 1» col < — 1. 

ELIM5. [Move all columns below "d" over ^••v i.] mCroujl>col] < — 
m[ r ouj2i col]. 

ELIM6. [Loop on col.] col < — col 1. If col .LE. n» then so to 
step ELIM5. 

ELIM7. [Initialize rouj. ] r^w < — 1. 

ELIMS. [Move all roujs belouj "d" up bv 1.] mC r ouj» roul ] < — 
m[ rouji r ouj2] . 

ELIM9. [Loop on rouj.] row < — row 1 • If rou .LE. n? then so to 
st^p ELIM8. 

ELIMIO. [Loop on row.] rowl < — roul + 1» then so to step ELiri4. 

ELIMll. [Initialize roiul.] roul < — d- ^ 

ELIM12. [Fix UP index set.] rouj2 < — rowl It r[roujl] < — rCrouj2]. 

ELIM15, [Loop on roiul.] roul < — roul-f 1. if roul .LE. nminus^ then 
90 to step ELIM12. 

ELIM14. [Set n to reflect deleted element.] n < — n - 1. 
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ISMS SUBROUTINE/FUNCTION- NAME - ADDEL 



FUNCTION 
USAGE 

PARAMETERS 



N 



- Adds elements to reachability matrix. 

- CALL ADDEL<N,MATRIX, INDEX, TT YIN, TTYOUT, 

SYS) 

- Input/OutPut inteser scalar indicating 

number of elements currently on 
"MATRIX". 



MATRIX - Input/OutPut losical two dimensional 
matrix of dimensions "SYS" X "SYS". 
This is the binary reachability matrix 
that elements will be added to. 

INDEX - Input/OutPut integer vector of length 
"SYS" containing the index set of 
"MATRIX". 

TTYIN - Input integer scalar used as unit number 
in FORTRAN READ statements directed tc- 

interactive terminal. 

TTYOUT - Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 



•:.YS 

COMMON BLOCh S 
REUUIRED ISMS ROUTINES 
REUUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



- Input integer scalar used in FORTRAN 

DIMENSION statements. 

- None 

- GETNUMiFINDIT 

- None 

- The algorithm employed is described 

be 1 ow: 



Algorithm ADDEL (Adds elements to a reachability matrix). Given the 
number of elements currently in a reachability matrix, n, the 
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reachability matrix* R» and its associated index set vector* T? 
accept and add element numbers from interactive terminal. 

ADDELl. CMake sure memory limits are not exceeded. 3 I^.n .GE. SYS? 
then write error , message and then algorithm is conxplete. 

ADDEL2, [Accept element number to be added.] AppIy Alsorithm GETNUM 
to 9et nl. If nl = 0* then algorithm is complete. 

ADDEL3, CMak/e sure that nl does not already exist in index set.! App 
. lY Algorithm FINDIT. If nl already exists* then write out 
error message and then go to step ADDEL2. 

ADDEL4. [Add element. 3 n < — n + 1* tCnD < — nl* rCJ*n] = 0* rCn*J3 
0> J = l T 2t . . . I n. Set rCn*n] 1 and then go to step ADDELl. 
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ISMS SUBROUTINE /FUNCTION NAME - POOL 



FUNCTION 



Combines two elements on the same level 
or stase that are not connected. 



USAGE 

PARAMETERS 



N 



REA 



INDEX - 



TTYIN 



TTYOUT - 



SYS 



CALL POOL ( N , REA , I NDEX , TT Y I N , TTYOUT . SYS ) 

Input/OutPut integer scalar equal to the 
number of elements in "REA". 

Input/OutFut logical two dimensional 
matrix of dimensions "SYS" X "SYS". 

I npUt/Ouwtpijt integer vector of lensth 
"SYS" that contains the index set of 
"ftEA". 

Input integer scalar used as unit number 
in FORTRAN READ statements directed to 
interactive terminal. 

Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

Input integer scalar used in FORTRAN 
DIMENSION statements. 



COMMON BLOCH S 
REQUIRED ISMS ROUTINES 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



- None 

~ GETNUM , F I ND I T . H I ERCH , COMB I N , TRNCLS 

- None 

- The algorithm employed is described 

be 1 ouj: 



A1«>orithm POOL (Combines two elements on the pame level or stage), 
uiven a reachability matrix. Ri its associated index set vector, T. 
and the number of elements in R» n» ask the user for two elements 
and perform the pooling process. 
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POOLl. [Accept two elcfments from interactive terminal • 3 AppI 
Algorithm GETNUM. 



POOL. 2 [Check if numbers are zero.] If u = 0 or v = Oi then algorithm 
IS compl ete. 



P00L5, [Check if numbers are in index set.] AppIy Algorithm FINDIT. 
If u and/or v are/is not found* then write appropriate error 
message and then so to step POOLl. 



P00L4. [Initialize.] stages < — 0. 

P00L5v [Calculate the number of elements on each level of "REA".] 
AppIy Algorithm HIERCH to fill up local vector L and H. 

P00L6, [Initialize.] fl < — 0, f2 < — Oi start < — 1, i < — 1. 

P00L7, [Initialize.] end < — start ^Ui] - 1, J < — start. 



P00L8- [Determine if u and v are on same levtfl c stase.] If h[j] = 
Ut then fl < — U If h[J] = v, then f2 < — 1. 

P00L9. [Loop on J.] J < — J 1 . If J .LE. endi then 90 to step 
PUUL8. 

POOLIO. [Check if u and v are on same level or stage.] If fl = 1 and 
f2 = I J then 90 to step P00L19. 



POOLl 1, [Check if either u or v was found on this level or stage.] If 
fl = 1 or f2 = 1, then go to step P00L13. 

P00L12. [Check next level.] start < — end ^ li i < — i + 1. If i 
.LE. number of levels or stages then go to step P00L7. 

pnoLlIs. [N«:»t on same level » see if on same stages.] If stages - 1» 
t^ -n go to step P00L18. 



P0UL14. [Transpose R to obtain number of elements on each stage.] Set 
local ma t r i X Z » z [ i » j ] < — r [ J » i ] » i « 1 » 2 » . . • » n i J = 1 1 2 1 . . . i n . 

PuuL15. [Copy transposed matrix into R. ] r[iij] <I — z[iiJ]i i = li2»..« 
» n ? J = 1 » t . • • t ri . 

P0''>L16. [Calculate number of elements on each stage of "REA'*.] AppIy 
Algorithm HIERCH to filTup local vectors L and H. 
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P00L17. CTranspose adai.i in order to siet back original matrix,] rCii 
j] • — 2Ci»i3t i»l»2>f.«in» J«l»2».«.»n, Set stases* stages 
< — 0» then so to step P0GL6. 

POOLIS. CPoolin^ error message* not on same, level or stage.] Write 

appropriate error message to interactive terminal and then s»o 
to step POOLl. 

POOLr=>, [Determine roui and column subscripts for u and v on "REA".] 
AppI V Algorithm FINDIT to set variables iu and iv. 

PO0L20. LAccept index set name for pooled elements from interactive 
terminal.] AppIy Algorithm GETNUM to get newnam. 

P00L21. [Check to see if newnam is zero.] If newnam = 0» then 
algorithm is complete. 

P00L22. [Check to see if newnam is already in index set.] AppI y 

Algorithm FINDIT. If newnam is already in index seti then 
write appropriate error message on interactive terrriinal and 
theri go to step PO0L2O. 

P00L23. [Combine elements u and v and use newnam as index in index 
set.] AppIy Algorithm COMBIN. 

P00L24, [Calculate reachability of new element.] AppIy Algorithm 
TRNCLS and thert go to step POOLl. 
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ISMS SUBROUTINE /FUNCTION NAME - EREDOE 
FUNCTION 



USAGE 



Erases an edge from th« minimum edse 
digraph. 

CALL EREDGE(N,REA, INDEX , TTY IN, TTYOUT, 
SYS) 



PARAMETERS 



N 



Input integer scalar indicating thi=' 

number of elements currentlv in "REA". 



COMMON BLOCKS 



REA - Input/OutPut logical two dimensional 
matrix of dimensions "SYS" X "SYS". 
This is the binary reachability matrix 
containing the minimum edge digraph. 

Input integer vector of length "SYS" 
containing the index set for "REA". 

Input integer scalar used as unit number 
in FORTRAN READ statements directed to 
interactive terminal. 

Input integer scalar used as unit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

SYS ■- Input integer scalar used in FORTRAN 
DIMENSION statements. 

- None 



INDEX - 



TTYIN - 



TTYOUT - 



REQUIRED I -SMS ROUTINES 



REC'U I RED FORTRAN ROUT I NES 



ALOijR I T HM EMPLOYED 



- GET NUM , F I ND I T , H I ERCH . STAN , SW I TCH , CONDE , 

ELIM,SKLTN,TRNCLSi 10 

- Norn* 

- The als»orith*ri emploYed is described 

hel oui? 



ERLC 



Algorithm tREDOE (Erase ati edsie on the rvaninr^um' edse disraph). Given 
the numb^^r of elements currentlv in a reachability matrix» ni the 



fi6 



reachability matrix containins the minimum edse di^raphi and its 
associated index set vector^ Ti accept edses to be eliminated from 
interactive user. 
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EREDGElc [Accept edse to be eliminated.] AppIv Alsorithm GETNUM to 
set nl and n2. 

ERED0E2. [See if termination is requested.] If nl = 0 or n2 = 0» then 
alsorithm is complete. 

EREDGE5. CCheck to see if nl and n2 are in svstem index set.] AppIy 

Algorithm FINDIT. If nl and/or n2 are/is not in sYstem index- 
set? then issue appropriate error message and then so to step 
EKEDGEl. 

EREDGE4. [Check to see if nl and n2 are members of a CYcle.] If r[ii, 
J J] = 1 and r[JJ»ii] = 1» issue error message and then so to 
step EREDGEl. 

EREDGE5. [Calculate non/redundant adJacencY matrix for R. ] AppIy 
Algorithms HIERCH, STAN, CONDE> SKLTN. 

EREDGE6. [Check to see if nl and n2 are on minimum edse digraph.] 

AppIy Algorithm FINDIT. If nl and/or n2 are/is not on mini- 
mum edge digraph? then issue appropriate error message and 
then go to step EREDGEl. 

ERED0E7. [Check to see if edge from ni to n2 exists on minimum edge 
digraph.] If r[ii>jJ] = 0> then issue error message and then 
go to step EREDGEl. 

EREDGE8. [Obtain index positions of nl and n2 on R. ] AppIy Algorithm 
FINDIT. 

EREDGE"'. [Initialize.] 1 < — 1 . 

EREDGElK. [Check to see if 1 is not a member of the antecedent set of 
nl.] If r[l,ii] = 0, then go to step EREDGEl'4. 

EREDGEl 1. [Initialize.] k <— 1. 

EREDGEll'. [Check to see if k is not a member of the reachabilitY set 
of n2. ] If r[jj,k] = Ot then go to step EREDGE13, else set 
r [ 1 , k] <-- 0 

EREDi^El?. [Loop on k.] k < — k •♦■ 1 . If k .LE. n, then go to step 
EREDGE12. 
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EREDGE14. CLoop on 1.] 1 < — 1+1. If 1 .LE. n» then so to stei* 
EREDGEIO. 

EREDGE15. [Calculate reachab i 1 i tv. ] AppIy Algorithm TRNCLS. 

EREDGE16. [Update permanent file.] AppIy Alsorithm 10 and then so 
5tep EREDGEl. 



1 6 J, 
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&DEDDE 



ISMS SUBROUTINE/FUNCTION NAME - 

FLINC7I0N 

USAGE 

PARAMETERS N 

RE A 

INDEX - 



ADEDGE 

Adds edges on the minimum edse disraph. 

CALL ADEDGE (N,REA, INDEX^ TTYIN, t TYOUT, 
SYS) 

Input/Output int.»cj^r e^alar indicating 
the umber of elements currently on 
"REA". 

Input/OutPut logical two dimensional 
matrix of dimensions "SYS" X "SYS". . 
This is ttie reachability matrix con- 
taining the minimum edge digraph. 

Input integer vector of length "SYS" 
containing the index set of "REA". 



TTYIN - Input integer scalar used as unit number 
in FORTRAN READ statements directed to 
interactive terminal. 



COMMON BLOO r 



TTYOUT - Input integer scalar used as gnit number 
in FORTRAN WRITE statements directed 
to interactive terminal. 

SYS - Input integer scalar used in FORTRAN 
DIMENSION statements. 

~ None 



REQUIRED ISMS ROUTINES 



GETNUM,FINDIT, TRNCLS 



REUUIRED FURTRAN ROUTINES 
ALGORITHM EMPLOYED 



- None 

- Th^ alsiorithm emp loved is described 

be 1 ouj: 



Algorithm ADEDOE (Add an ed^e on the mi nirriUfTi edge digraph). Given the 
nurribvif of elements currently in a reachability matrix^ n? the 
reachability matrix containing the minimum edge digrar^h? and its 



associated index set» T. ask the interactive user for edges (rela- 
tionships) to be added on the minimuiri edse di9raph\ 

ADEDGEl. [Accept two element numbers from interactive terminal. 3 App- 
ly Algorithm OETNUM to obtain nl and n2. 

ADEDGE2. CCheck for termination directive. 3 If nl = 0 or n2 = 0» then 
so to step ADEDGE5. 

ADEDGE3. CCheck to see if nl and n2 are members of index set. 3 AppIy 



ADEDGE4. CPut edge in. 3 rC'.i»jJ3 <— 1» then go to step ADEDGEl. 

ADEDGE5. [Transit ivelv close matrix. 3 AppIy Algorithm TRNCLS and then 
algorithm is complete. 



Algorithm FINDIT. If nl and/oi* n2 ^e/is not in index set* 
write error message on interactive ferminal aTid then go to 
step ADEDGEl. 
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ISMS SUBROUTINE /FUNCTION NAME 
FUNCTION 



ERASE 

Erases elements from a binary matrix. 



USAGE 



PAHAMETERc 



N 



SYS 



COMMON BLOCK 



REQUIRED ISMS ROUTINES 



REQUIRED FORTRAN ROUTINES 



ALGORITHM EMPLOYED 



CALL ERASE (N, MATRIX, INDEX, TTYIN, TTYOUTt 
SYS) 

Input/Output integer scalar indicatins 
the number of elements currently in 
"MATRIX". 



MATRIX - lnput/0u*-'»ut logical two dimensional 
matrix of dimensions "SYS" X "SYS". 
This is the arsumet binary matrix. 

IDEX - Input/OutPut inteser vector of lesth 
"SYS" containing the index set of 
"MATRIX". 

TTYIN - Input integer scalar used as unit number 
in FORTRAN READ statements directed to 
interactive terminal. 

TTYOUT - Input integer scalar used as unit numbei- 
in FORTRAN WRITE statements directc^d 
to interactive terminal. 



- Input integer scalar used in FORTRAN 

DIMENSION stateir.ents. 

- None 

- ELIMtGETNUMtFINDIT 

- None 

- The algorithm employed is described 

bel ow: 



Algorithm ERASE (Erase elements from a b i narv matr ix ) . Given the 
number of elements currently in a binary matrix* n» the binary 
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matrix, R, and its associated index set v^ctori Ti accept and erase 
elements numbers from interactive terminal and erase them. 



ERASEl. [Check to make sure n is not .LE. 0.3 If n .LE. Oi then 

write out error message on interactive terminal and algorithm 
is coiriplete. 

ERASE2. [Accept an element number from interactive terminal. 3 AppIy' 
Algorithm GETNUM to obtain nl. If nl = Oi then algorithm is 
complete. 

ERASE3. [Check to see if ril is a member of index set. 3 AppIy 

Algorithm FINDIT. If nl is not a memberi issue appropriate 
error message and then go to step ERASE2- 

ERASE4. [Erase element from matrix. 3 AppIy Algorithm ELIM and then go 
to step ERASE2. 



IBWCLS 



ISMS SUBROUTINE/FUNCTION NAME ~ TRNCLS • 



FUNCTION 



Transitively closes a binar^v matrix to 
Yield a reachability matri^<. 



USAGE 



PARAMETERS 



N 



- CALL TRNCLS (N, MATRIX, SYS) 

-- Input integer scalar indicatins number 
of elements in "MATRIX". 



SYS 

COMMON BLOCKS 
REQUIRED ISMS ROUTINES 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



MATRIX rr* Input/OutPut losical two dimensional 
^TNti^ix of dimensions "SYS" X "SYS", 
this is the argument binary matrix. 

- Input integer scalar used in FORTRAN 
DIMEt^SION statements. 

- None 

- None 

- None 

- The algorithm employed is described 
below: 



Algorithm TRNCLS (Transitive closure). Given the number of elements 
currt-ntli' in a matrix, n, and the binary matrix, M, calculate and 
rearrange M into a reachability matrix. 



TRNCLS 1 . 
TRNCLS2. 



[Initialize.] i < — 1 . 
[Initialize element #1 search.] nones < — 0» last < — 0. 



TRNCLS3. [Initialize.] k <~ 1. 

TRNCLS4. fFind all ones in reachability set of element #i.!l If mCi,fiD 
= 0. then go to step TRNCLS6. 

TRNCLS5. LFound a one, keep track of it. 3 nones < — nones 1, fill 
local vector C, cCnonesI <-- k. 
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TRNCLS6. CLooFf on k.] k > — k + 1, If k .LE. n, then 3o to step 
TRNCL:d4. 

TRNCLS7. [Check to see if anv new ones were added from last time 
through.] If nones = last, then so to step TRNCLS14. 

TRNCLS8. ""Not compute new elements in reachability set of element #1 
by transitivity.] last < — nonesi 1 < — 1. 

TRNCLS9. CInitial ize. -] k <— cCl], J 1 . 

TRNCLSIO. [Fill up matrix.] If mCi.k] - 1 and mCk.J] = 1, then set 
mCi»J] < — 1. 

r 

TRNCLSll. [Loop on J.] J < — J + 1. If j .LE. n. then 90 to step 
TRNCLSIO. 

TRNCLS12. [Loop on 1 . ] 1 <— 1 ■»• 1 . If 1 .LE. nones, then so to 
step TRNCLS9. 

.TRNCLS13. [Continue processing.] nones < — 0. then so to step 
TRNCLS3. ^ 

TRNCLS14. [Loop on i.] i < — i + 1. If i .LE. n, then so to step 
TRNCLS2. else algorithm is complete. 



I 
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ISMS SUBROUTINE /FUNCTION NAME - PACK 



FUNCTION 



Packs as mariY display characters as 
possible into one machine word. 



USAGE 



PARAMETERS . 



- CALL PACK (NWORDStNCHAR, CARD) 



NWORDS - Input integer scalar e*iual to the 

of machine words required to hold S^O 
characters p1 us 10 additional words • 

NCHAR - Input integer scalar equal to the number 
of characters able to be stored in onr- 
machine word. 

CARD - Input integer vector of lensth 60 con- 
taining the text to be packed ^ stored 
one character per word . 



COMMON BLOCKS 



- Blank common is utilized. 



COMMON PARAMETERS 



See the description for subroutine 
MAKE IT. 



REQUIRED ISMS ROUTINES 



REQUIRED FORTRAN ROUTINES 



- None 

- None 



ALGORITHM EMPLOYED 



- The algorithm employed is described 
be 1 ow: 



Algorithm PK (Packing Algorithm). Given a maximum of 60 characters 
stored in one wordi pack as manv characters as possible into one 
word and store the packed string starting on the first available 
word boundary, 

PH 1 . C I n 1 1 la 1 1 2e. 1 pos < — pos 1 1 i < — 1 

P^.j.. C'lompute number of characters to process,] If cariJ(61 - x) is 
not a blanKt then go to step PK4. 

[Loop un i.] i < — i 1 . i < ol> th* n ho to step PK2» els^ 
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PK4. [Calculate actual lensth.] len < — 61 - i 

PK5. [Encode t«'xt (i.e., PACK).] len»th(^»05) <-~ (len - D/nchar -♦• 1, 
end < — start + len9th<pos). Store reformatted text into 
'>acked"» packed<i)» i«5tart»end. start < — start ■♦• len9th(po5> 
and alsor.ithm is complete. 



is,, 
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ISMS SUBROUTINE/FUNCTION NAME 
FUNCTION 



WRITE 

Writ«s a record onto the direct access 
«»uerY fil**. 



USAGE 



- CALL WRITE<LOGPOS,NWORDS) 



PARAMETERS 



COMMON BLOCKS 



LOGPOS - Input integer scalar denoting the logic- 
al position of the record in the file. 

NWORDS - Input integer scalar e«iual to the number 
of machine words required to hold 600 
characters plus Ip additional words. 

\ 

- Blank common is utilized. 



COMMON PARAMETER:; 



- See the description for subroutine 
MAKE IT. 



REQUIRED ISMS ROUTINES 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



None 
None 

The algorithm employed is described 
be 1 ouj: 



Algorithm WR (Write Algorithm). Given a record of size "nwords", 
write the record onto the «»uery'file in the proper position. 

WF 1 . [Determine if an element text is to b«? written.] If lospos < St 
then 9 0 to Ftep WR3. 

WR2. [An element text is to be written. 3 n < — n ■♦■ 1 

WR3. [Write record.] Write record onto file in position "lo9Pos". 

WR4. [Re?et record associated variables.] start < — 1, pos < — 0» 
)efi9th(i) < — 0, i=sl 7 2, . . . » 10 and algorithm is complete. 
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ISMS SUBROUTINE /FUNCTION NAME - MAKE IT 

FUNCTION - Converts a sequential access file con- 

tainins «iueries for an ISM session 
into a direct access file for random 
retr ieval . ^ 



USAGE 



- CALL MAKE IT 



TPARAMETERS 
COMMON BLOCKS 
COMMON PARAMETERS 



TTYOUT - 
N 

TOTAL - 
POS 



REOUIRED ISMS ROUTINES 
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- None 

- Blank common is utili3!ed» 

TTYIN - Inteser scalar used as unit number in 
FORTRAN READ statements directed to 
interactive terminal . 
Inteser scalar used as unit number in 
FORTRAN WRITE statements directed to 
interactive terminal . 
Integer scalar e«iua^ to the number of 

e lement text records processed. 
Integer scalar equal to the number of 
machine words required for the current 
e 1 ement text record. 
Inteser scalar which denotes the lin^ 
number (1 thru 10) of the current el e- 
ment text record beins processed. 
START - Integer scalar which is equal to the 

first available subscript of "PACKED" 
for packing in the current element 
text record . 
LENGTH - Integer vector of length- 10 words. 

LENGTH(I) « number of machine words 
required to store line#I of the element 
text record currently be i ng processed. 
PACKED - Integer vector of lergth 200 words con-- 
taining the text of the element text 
record with each line stored on a word 
boundary. 

- DOIT,SHOW,PACK,WRITE,GETNUri ' 



1 



I 



REQUIRED FORTRAN ROUTINES ENCODE (if available) 

ALGORITHM EMPLOYED - The alsorithm employed is de.scribed 

be 1 ous 

Algorithm MK (Makeit). Given a line oriented se^iuential text file 
with textual and control information^ reformat and ijrite the infer-* 
mation to a direct access file. 

MKl. [Initialize.] nchar < — number of bits per bord/number of bits 
required to represent one character* naiords < — (60/nchar )*10 

MK2. [Construct file. 3 AppIy Algorithm DOIT. 

MK3. [Write number of records on first record.] ^rite* variable n. 

MK4« [Ask user if he wants to show elements.] Write message and read 
response. If user does not want to see his elements then 90 to 
step MK6. 

MH:5. [Show elements.] AppIy Algorithm SHOW. 
MH6. [Terminate.] Algorithm is complete. 
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DO II 



DOIT 

Creates the random text filtif. 



CALL DOIT(NCHAR.NWORDS.CARD) 

Input inteser scalar e^^ual to the number 
of characters able to be stored in one 
machine ujord. 
Input integer scalar e«!ual to the number 
of machine ujords re«iuired to hold 600 
characters plus 10 additional uiords. 
Input integer vector of lensth 60 words. 

Blank common is utilized. 

See the description for subroutine 
MAKEIT. ' 

None 

None 

The algorithm employed is described 
be 1 oui: 

Al^orithnr DO (Doit Algorithm). Given a se«iuential text file with text 
and control cardsi read each record and form a random access text 
file for full text «^utfrie5. 

DOl- [Initial ise.l start < — li flag < — Ct n < — 0. length(i) < — Oi 

[lOl. [Read a record from text file.] Read in sixtv characters into 
"card" with each character on a word boundary. On end of file» 
algorithm is complete. 

D03. CCheck for control card. 3 If CARDd) = "/" then so to step 005. 

Di"i4. CPack text.] The record read was a text record so appl y 
Algorithm PK and then 90 to step D02. 



70 




ISMS SUBROUTINE/FUNCTION NAME - 
FUNCTION 

USAGE 

PARAMETERS NCHAR - 

NWORDS - 
CARD 

COMMON BLOCKS 
COMMON PARAMETERS 

REQUIRED ISMS ROUTINES 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



D05. CCheck to see xf current record should be written.] If flas = 0 
then s>o to step D07. 

DCi6. CWrite current record to random text file. 3 AppIy Alsorithm 
WRITE. 

Ik 

D07. [Parse control card.] lospos < — 0. If CARD(2) not equal to an 
"R" then so to step DOIO. 



[Determine logical position for next record. \| If CARD<3) = i. 
then lospds < — i 1 , i- 1 , 2, 3. 

D09. [Check for error on control card.] If lospos < 2-, then go to 
step D013» else flag = 1 and go to step D02. 

DOIO. [Continue parsing control card. 3 If CARD(2/ is not ^^ual to an 
"E", then go to step D012. 

poll. [Continue parsing control card. 3 If CARD(3) = "L", then 1 ogpos 
< — n > 5. If logpos is less than 2i then go to step D013i else 
set flag = 1 and go to step D02. 

D012. [Check for end of file. 3 If CARD(2) = "/", then algorithm is 
complete. 

D013. [Write error on interactive terminal. 3 Write "control card 
error" and then algorithm is complete. 
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ISMS SUBROUTINE/FUNCTION NAME - SHOW 



FUNCTION 



USAGE 



COMMON BLOCKS 



COMMON PARAMETERS 



REQUIRED ISMS ROUTINES 



- Displavp all or user specified pairs of 

elements as thev misht appear durins 
an ISM session. 

- CALL SHOW 

SHOWB - Named inteser common block of le^nsth 
5*"NW0RDS. " / 

- blank common is also utilized. See the 

description for subroutine MAKEIT. 

- See the description for subroutine BORD- 

ER for the list of paramo ters,, 

- SHOWB has been made a common block to 

guarantee the cont insincY of I storage. 

- None 



REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLuYED 



- None 

- The algorithm employed is described 

belooiS 



Algorithm SH (Shou> Algorithm). Given a direct access ^uerv filei dis- 
play user specified sets of «^ueries. 

-HI. Clnitial ise. ] alls <— 0, ell <— 0, el2 <— 0 

SH2. [Read in relational clauses 1»2, and 3,2 Read Rl> R2, R3. 

SH3. C?ee if user wants to display all elements.] Ask user, if ves, 
then 90 to step SH13. 

SH4, CAsk user uihich two elements to present.] Ask user, it one or 

tujcf zeros are typedi then algorithm is complete. Otherujise» make 
sure that elements text exist. If noti then issue an error mes- 
sag*^ and then go to step SH4. 

•INT.. [Read in elements text.] il < — ell > 4i i2 < — el2 + 4t read in 
records il and i2. 
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SH6. ClnitiaUze for tvpins out. 3 offset < — d i < — 1 

SH7. Clrntialize for ten phrases.] J < — 1, il < — d i2 < — 0 

SH8. [Check length indicator.] If SHOWB(J + offset) = 0, then so to 
step SHIO. 

Sm. CPrint out this phrase.] length <-~ SHOWB(J + OFFSET), II <— 12 
+ 1, 12 <— H + LENGTH + 1, WRITE OUT SHOWB(c + offset + 10) » 
c=i 1 , . . . » i2. 

SHIO. CLoop on J.] J < — J + 1. If J < 11, then 90 to step SHS. 

SHll. CLoop on i.] offset < — offset + nwords, i < — i + 1. If i C 
6, then go to step SH7. 

SH12. CCheck for desired printing of all element pairs.] If alls - 0, 
then go to step SH4. 

SH13. CCcme here when printing all element pairs.] ell < — el 2 + 1, 

el 2 < — el2 + l. Ifell>n, then algorithm is complete, if el 2 
> n, then set el2 < — 1, alls = 1, then go to step SHS. 
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ISMS SUBROUTINE/FUNCTION NAME 
FUNCTION 



ADD 



- Adds ele, "ts to the weighted matrix. 



USAGE 



PARAMETERS 



- CALL ADD(N, MAT, INDEX) 



/ 



N 



MAT 



COMMON BLOCKS 



COMMON PARAMETERS 



REQUIRED ISMS ROUTINES 



REQUIRED FORTRAN ROUTINES 



ALGORITHM EMPLOYED 



INDEX. 



INFO 



- Input/OutPut integer scalar indicating 

the current number of elements in the 
ujei3htf='d matrix. 

- I riPut/OutPut integer two dimensional 

matrix of dimensions 50 X SO. This is 
the weighted matrix. 

- InPut/OutPut integer vector of length 50 

words containing the index set for 
"MAT". 

- Named integer common block 3 words long. 

- See the description for subroutine 

PRNTMT. 

- FINDIT,GETNUM, QUEST 

- None 

- The algorithm employed is described 

below: 



Algorithm AEiD (Add an element to a weighted matrix). Given the number 
of elements cu. rentlv in a weighted matrix* n» the weighted inatrix? 
W» and its associated index 5et» T» add an element to the weighted 
ma t r i >; . 

« 

ADDl. CA^^^ user for neij element to be added*] Prompt user and then 
4pp1 algorithm CiETNUM. 

APDI*. [Make sure that number is less than or equal to 9999 for f or- 
tran formatting.] If number read in is > 9999i issue error mes- 
sage and then go to step ADDl • 

ADD!:. [Check for a zero iiiput.] If number tvped was a zero? then 
algorithm is complete. 
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ADD4. CCh«ci for duplicate *l«r7.erit.] AppIy Alaorithm FINDIT. If ele 
nrient is already in index set* the issue error fTiessase and then 
9 0 to step ADD!. 

« 

ADD?7i, [Put new element into matrix.] n < — n ^ 1? tCn] < — new 
number , 

ADD6. [See if user wants to fill up relationships for new element.] 
Prompt user. If user types an "N'S then so to step ADDl. 

ADD7. . [Initialize column fill.] i <~- 1 

ADDS. [Present question.] AppIy Algorithm QUEST ( t [ t ], t[ n] ) . 
ADD9. [Get weight value.] AppIy Algorithm GETNUM. 

ADDIO. [Make sure weight value is less than 10.3 If weight value is 
greater then 9i issue erro^ message and then go to step ADDS. 

ADDll. [Set matrix.] wCi»n] < — weight value 

ADD12. [Loop on i.] i < — i -f 1 . If i is less than or e^ual to n - 
ly thexi go to step ADDS. 

ADni:3. [Initialize row fill.] i < — 1 

ADD14. [Present «^uestion.] AppIy Algorithm QUEST ( t [ n ], t [ i ] ) 
ADD15. [Get w<^igut value.] AppIy Algorithm GETNUM. 

ADD16. [Make sure weight value is less than 10.] If weight valsje is 
greater than 9? issue error message and then go to step AKiD14, 

ADDl 7. [Set matrix.] w[n»i] < — weight value 

ADU18, CLoop on i.] i < — i 1. If i is less than or ejKjal to n 
1. then go to step ADDMi else go to step ADDl. / 

U V 
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ISMS SUBROUTINE /FUNCTION NAME - PRNTMT 



FUNCTION 



Prints out all weighted relationships 
included in a weisihted matrix that are 
sreater than or equfal to an input 
ujei9ht value. ' . 



USAGE 



- CALL PRNTMT (N, MAT, INDEX, THRESH, SELPNT) 



PARAMETERS 



COMMOr' &LUCKS 



N ~ Input inteser scalar e«iual to the number 

of elements on "MAT". 

MAT - Input integer two dimensional matrix of 
dimensions SO X 50. This is the 
U)»?i9hted matrix. 

INDEX - Input integer vector of length '50 con- 
taining tht^ index set for "MAT", 

THRESH - Input integer scalar used as cut-Qff 

thr«>shold. All rel at i or 5hi ps greater 
than or csual to "THRESH" will be 
printed if "SELPNT" = .TRUE.. 

SELPNT - Input logical, variable used to determine 
if onlv relationships greater than or 

/ e«iual to "THRESH" should be printed 

(SELPNT = .TRUE.) or all relation- 
ships (SELPNT = .FALSp) 

INFO - Named integer common block 3 words long. 



COMMON PARAf^ETERS 



QTYPE - Input logical variable indicating the 
type of 9uerY to be presented. 
QTYPE = .FALSE. causes full text 
queries to be printed. 

QTYPE =,-TRUE. causes symbolic queries 
to be printed. 
TTYIN - Input integer scalar used as unit number 
/ in FORTRAN READ statements directed to 
interactive terminal. 
TTYOUT - Input integer scalar us^ a& unit numb<?r 
in in FORTRAN WRITE statement r 
directed to interactive te-rminal. 
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REQUIRED ISM'=; ROUTINES 



- None 



REQUtRtD FO^^TRAN ROUTINES 
ALGORITHM EMPLOYED 



- The algorithm employed is described 
belows 



- None 



Algorithm PT (Print weighted matrix). Given the number of elements in 
a weighted matrix? n^ the weighted matrix^ and its associated 

index set vector^ M^ print out all or Just relationship* greater 
than or e«=<ual to <\ thresholds t. 

PTl, [Initialize.] If selpnt = 1j then print special t-^tle. Set i^ i 



PT2. CBegin row search.] Set ctr < — Oj J < — 1. 

PT3. CCht-ck for printing greater than or .e<=«ual to threshold.] If 
s^elpnt - Oi then go to step PT5. 

PT4. CCherk for relationships «=«reat.'r than or esual to the threshold. 
] if wCi^j] < t.i then go to step PT7. 

PT5* CDon t print diagoiial.] If i = J? then go to step PT7u 

PT6. ['it '.-re values in local array f^r printing.] ctr O — ctr + 
list[ctril] <: — m[J]i list[ctr7-3] < — wCi^J]. 

PT7» [Loop on j,] j < — J -f 1. If J <= ni then go to step PT3. 

, PTo. [Lh^-r^ for ctr=^0.] If ctr = 0. then write out mCi] and then go 
to step PTIO. 

PT'"^. [W^ite out row relationships.] Write out mCi]i listCkil]? 
1 1 s t [ ^ ' » 2 ] » k 1 » 2 » . . . ? c t r . 



PTlt). [Loop on i.l i < — i 1 . If i <= vm then go to step PT2i else 
algorithm is complete. 



1. 
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ISMS SUBROUTINE /FUNCTION NAME - CHANGE 



FUNCTION 



Chanses weights in the ujeiehted matrix 
via user interaction. 



USAGE 



- CALL CHANGE(N»MAT, iNDEX ) 



PARAMETER; 



commnn blocks 

CUMMON PARAMETERS 

REOUIRED ISMS ROUTINES 
REQUIRED FORTRAN ROUTINES 
ALGORITHM EMPLOYED 



N 

MAT 

INDEX - 
I NFO 



Input intesor scalar indicating the cur- 
rent number of elements in "MAT". 

Input/Output inteser'tujo dimensional 
matrix of dimensions 50 X 50 contain- 
ing the weighted matrix. 

Input integer vector of length ^50 words 
containing the index set for 



\mat". 



Nained int^^ger common block of length 3 
words. 

See the d*^scription for subroutine 
PRNTMT. 

FINDITtGETNUM 

■ 

None 

The alsori thm empl oved is described 
be 1 oui5 



AI^CTithfTi CH (Change Algorithm). Given the number of elements cur- 
rently in a weighted matrixt ni the weighted matrix? W-* and its 
associated index set* T? allow changes in the inatri>; via user 
interaction. 

lHU [Prompt user.] Write message to interactive terminal. 

[Read rhange.] AppI y Algorithm OETNUM. Read the element numbers 
and weight change (3 numbers). 

Cff3. rCheck for termination.] If anv of the element numbers are zerot 
algorithm is complete. 
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CH4, [Chec^ to see if element number? are valid.] AppIy Algorithm . 

FINDIT. If one on botfj numbers are invalid? write an error mes- 
sage and then 90 to step CHI, 

CH5, [Make sure weisht typed is 9 or less.] If weight value is great- 
er than urite error inessase and then so to step CHI. 

CH6. [Change weight.] wCx»y] < — weight? where x and y are outputs of 
algorithm FINDIT. Go to step CHI. 
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ISMS SUBROUTINE /FUNCTION NAME - FILL 



FUNCTION - Helps the user fill the weighted matrix 

bv presentins the re^^uired queries. 

USAGE - CALL FILL ( Ni MAT, INDEX , R2 ) 



PARAMETERS 



N 

MAT 

INDEX 
Rl 

R2 



Input integer scalar indicating the cur- 
rent number of elements in "MAT". 

Input/OutPut integer two dimensional 
matrix of dimensions 50 X 50p« This 
is the weighted matrix. 

Input integer vector of length 50 words 
containg the index set for "MAT". 

Input/Output integer scalar used as the 
row restart indice. 

Input/OutPut integer scalar used as the 
col umn restart • indite. 



COMMON BLOCK'; 



COMMON PARAMETERS 



INFO - Named integer common block of length 3 
words*. 

- See the d#ff scr i pt i on for subroutine 
PRNTMT. 



REQUIRED ISMS ROUTINES 



- QUEST tGETNUM 



REQUIRED FORTRAN ROUTINE* 



- None 



ALGORITHM EMPLOYED 



The al gori thm empi oved is desr ibed 
be 1 ow: 



Algorithm FL (Fill Algorithm). Given the number of elements currently 
in a we 1 gh ted matr i n ^ the we ighted matr i x » W> its associated 
inde^ ^et. Ti and two restart parameters rl and r2» allow the fil- 
ling of all Po?^it ions (with the exception to the diagonal ) on the 
wt- ighted matrix. 



FLl. [Check to see if this is a restart.] If rl or r2 is greater than 
zer o J go to step FL12. 



FL2. [Initialize,] row < — 1, col < — li rl < — Oi r2 < — 0 
FL3. [Initialize roiu loop,3 i < — roui 
FL4. [Initialize column loop.] J < — col ' 

FL5. [Don't process diagonal,] If i « J, then so to istep FLIO. 
FL6. [Present query.] AppIy Alsorithm QUESK t C i ] > t[ J ] ) . 
FL7. [Obtain lueisht,] AppI y Algorithm GETNUH. 

FL3. [Che:k for valid lueisht input,] If weight is e^iual to 10^ then 
90 to step FL19. If lueisht i6 greater than 9i then iss^ue error 
message and so to step FL6. 

FL*^. [Set matrix,] w[i7J] < — lueisiht value 

FLIO, [Loop on j.] J <T-'5- J + 1. If J is greater than or equal to ni 
then 90 to step FL5. V.. 

FLll. [Loop on i.] i <-r- i + 1. If i is less than or equal to ni 
then 9 0 to step FL4t else algorithm is complete- 

FL12. [Restart questioning.] i <C — rli J < — r2 

FL13. [Present query.] Apply Algorithm QUESK t [ i 3 , t C J ] ) . 

FL14. [Obtain weight.] Apply Algorithm GETNUM. 

FL15. [Chec^' for valid weight input,] If weight is equal to lOi then 
go to step FLl'?. If weight is greater than 9, then issue error 
message and go to step FL13. 

FL16, [ot-t matrix.] w[iiJ] C — weight value 

FL17. [Loop on j.J J <" — J i. If J is less than or equal to n^ 
then go to step FLl 3, 

FLly. [Rfset restart parameters,] row < — It col < — rl + rl < — 
Oi r2 <: — Oi then go to step FL3. 

FLl'"^. [uc-nerate restart parameters.] rl < — ii r2 < — J i then 
algorithm is complete. 
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ISMS SUBROUTINE /FUNCTION NAME - RESOLV 

FUNCTION - Resolves the threshold of a weighted 

matr ix. 



USAGE - CALL RESOLV(N. MAT. INP^IX, THRESH) 

PARAMETERS N - Input integer scalar indicating the cur-- 

rent number of elements in "MAT". 

MAT - Input integer two dimensional matrix of 
dimensions 50 \ 50. This is the 
weighted matrix. 

INDEX Input i»^teger vector of length 50 words 
containing the index set for "MAT'\ 

THRESH - Input integer scalar e^ual to the maxi- 
mum threshold to be used (usually e«iu- 
al to 9). 

COMMON BLOCKS INFO - Named integer common block of length 3 

words • 

COMMON PARAMETERS - Se^? the description for subroutine 

PRNTMT. 

REQUIRED ISMS ROUTINES - TRNCLS* PRNTMT. OEOD, NOTR 

REQUIRED FORTRAN ROUTINES - None 

ALOURITHM EMPLOYED - The algorithm employed is described 

be 1 ow5 

Algorithm RS (RfSoWe Algorithm). Given the number of* elements cur- 
rently in a weighted matrix, n, the weighted matrixi its asso- 
ciated indt*' set, Ti and the maximum threshold, r, resolve the maxi- 
mum threshold of the matrix. 

RSI, [Initialise.] z < — r 

RS2- [Initialize.] i < — 1 

RS3. [Be?in ». on 5^ t r uc 1 1 binary adjacency matrix.] j < — 1 



RS4. [Don t process main diasonal.] Set aCiij3 < — U. If i = J i then 
90 to step RS6. 

RS5. [Check threshold,] If wCi»j] is less than Zy then so to step 
RS7. 

RS6. [Set binary matrix position.] aCiiJ] < — 1 

RS7. [Loop on j.] j < — J 1 • If J is less than or esual to n» then 
90 to step RS4« 

RS&\ CLoop on i.] i < — i 1. If i is less than or e«iual to n^ then 
90 to step RS3. 

RS*^, [Trans 1 five 1 V close matrix.] AppIy Algorithm TRNCLS to set 
reachability matrix b. . 

Rcl^^ [Is binary matrix all ones ?] If bCi^J] = Oi then 9o to step 
RS 1 4 7 J = 1 » 2 > - . . ♦ n » i = 1 ♦ 2 » . . . n . 

RSll. [Tell user cycle is resolved.] Write z. 

RS12. CPrint universal macrix.] AppIy Algorithm PRNTMT. 

RS13- C^Tint 9eodetic paths.] AppIy Algorithm GEOD and then algorithm 
IS complete. 

RS14. [Select ne>i:t lowest threshold.] 2 < — z - Ij then go to step 
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ISMS SUBROUTINE /FUNCTION NAME - GEOD 



FUNCTION 



Outputs the seodetic cvcle paths con- 
tained within a uieishted matrix. 



USAGE 



- CALL GEOD (AD J, INDEX) 



PARAMETERS 



COMMON BLOCKS 



ADJ - Input losical two dimensional matrix of 
dimensions 50 X 50. This is the 
tiinarv threshold adJicencv matrix for- 
med in subroutine RESOLV. 

N - Input inteser scalar indicatins the 

number of elements in ••ADJ". 

INDEX - Input integer vector of lensth 50 con- 
tainin?? the index set for "ADJ". 

INFO - Named integer common block of length 3 
uiords. 



COMMON PARAMETERS 



^ See the description for subroutine 
PRNTMT. 



ALGORITHM EMPLOYED 



- The algorithm employed is described 
be 1 ou: 



Algorithm GE (Geodetic Algorithm). Given the number of elements cur- 
rently in a binary threshold matrix. n» the binary threshold matrix^ 
A. and its associated index set vector. T. determine and print all 
geodetic cvcle sets- 

GEK C Initial ize. 1 i < — nbn 1 



GE2. [Initialize Gl formation. 3 J 1 

GE3, CCherk for a ;:ero.] If aCi.j] - d th^^n so t't step GE6 

UEA. [Set G artd 3 gCi>j] < — 1^ btiiJ] < — 1 

GE^i. [Subtract identity..! If i = J> thtn ^li^jl - 0. 



GE6. [Loop on j . 1 

9 0 to step GE?-'*. 



J > 1 



If j xs *^ess thar: or f*«^iis:j.l to n. then 
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GE7. [Loop on i . ] i 
9 0 to step GE2. 



\ + !• If i is less than or e«iual to n7 then 



C1E8. Clrntializt?*] i.< — 1 

GE9. [Initialize.] j < — 1 
LiElO. [Zero ] c(j7i) < — 0 
UEI 1. [Initial ire. ] k < — 1 

GE 1 2 , [Set switch.] ma < — 0 . If a [ i > J ] = 0 > then ma < — 1 . 

GEi:. [Compute A^^t-nbn-l.] c[j7i] < — ina ^ b[k?i] + cCJ^i] 

0E14. [Loop on k.] k k + 1. If k is less than or equal to n» 

then 90 to step GEr2i. 

GE15. [Check for invalid entry.] If c[J»i] is not esual to O1 then 
s<^ t c [ J , I ] < — 1 . . 



GE16. [Loop on j.] j < — J + 1. 
then 9 0 to step GEtO. 



If J is less than or eRual to n^ 



GE17. [Loo»=> on 1.] i <: — i + 1. Ifi is less than or equal to n^ 
then 9 0 to step GE9. 

GEIS. [Initialize for G-«"«-nhn.] nbn < — nhn + 1» i < — 1 

GEl'v. [Initialise.] j <' — 1 

GE20. [Calculate G*-«-nbn.] 9[i»j] < — 9[i»J] + nbn * (c[iiJ] - b[ii 
J ] ) > b [ 1 7 J ] <:! — c C i-» J ] . 



GE21. [L'jop on j.] j <\ — J -4- 1 . 
then 9^' to step GE20. 



If J is less than or equal to ni 



GE 2 2 • [ L op on 1 • j i < — 1 ^- 1 . 
then 9 0 to step GElV, 



If 1 is less than or equal to n» 



GE23, ri^ G formed vet ?] If nbn is less than n 
GE8. 



1 » then 9 to step 



GE24. [Initialize path computation.] ) 
I ri 9 r» ri t <^ r m 1 ri a 1 r 



2 1 ncpt < — Oi ujrite head- 



GE2*7. [ Se t limit for i . J 1 1 m C 
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GEl'6. CFxnd cvcle distance.] nb <. — sCiiJ], na < — aCJ^iD 

GE27. Clf distance is zero* don^t process.] If na or nb = 0» then so 
to step GE47. 

GE23. CKeep account of paths.] nbnd < — 1» ICnbnd] < — i 

GE29. [Is path lonaer than 1 ?] If nb is sreater than li then so to 
step GE31. 

-A 

GE:30. [Store end link.] nbnd < — nbnd + 1» ICnbnd] < — j» then 90 to 
step GE36. 

GE31. [Initialize search for last link.] 1 miTi < — nb - 1, last < — Oi 
in <~ 1 

GE32. [Find link back to i.] nbnd < — nbnd + It lCn|3nd] < — next link 

(AppIy Algorithm NOTR), last < — ICnbnd], 

GE33. CUnsuccessf ul ?] If ix = 1» then write out error message and sO 
to stffP GE36. 

GE54. [Loop on in.] in < — in + 1. If in is less than or e«^ual to 
1mm, then so to step GE32. 

GE35. [Store end link.] nbnd •: — nbnd + 1» ICnbnd] < — J 

GE36. ri5 path complete ?] If na is greater than 1, then go to step 
GE33. ! 

GE"-:7. [Store return link.] Unbnd + 1] < — i» thejn go to step GE43. 

GE38. [Initialize search for last link.] Imn < — na - 1» last <-' — 0, 
in •:— 1 I 

I'lEj'"''. [Find link back to J.] nbnd < — nbnd + 1? ICnbnd] < — next link 
(AppIy Algorithm NOTR ) , last < — Unbnd], 

GE40. [Unsuccessful ?] If ix = 1» then write out error message and go 
to step GE43. 

G^41. [Loop on in.] in < — in + 1, If in is less than or e«iual to 
Imn, then go to step GE39. 

GE42. [Store end link.] Unbr-d + 1] < — i 

GE43, [Initialize for printout.] ncpt < — ncpt + 1, 1 mc <C — nbnd + 1» 

UK < — 1 
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GE44. CFi;: UP print vector for index set used.] num < — Knx]. pCnx3 
< — tCnum] 

GE45. [Loop on nx*] nx < — nx + 1- If nx is less than or e««ual to 
Imci then so to st<=fP GiE44. 

GE46. [Print out cvcle path on terminal-] nxx < — na nb? write 
ncpt» nxx» tCi]i tCj]^ pLkli k= 1 i 2> . . ^ i 1 mc . 

0E47. CLoop on J.] J <C — J + 1. If j is'fess than or equal to 1 irn^ 



GE4S. [Loop on i.] a < — i 1. If i is less than or equal to ni 
then 90 to step GE25i else alsorithm is complete. 



then 9 0 to step GE26- 
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ISMS SUBROUTINE/FUNCTION NAME - NOTR 



FUNCTION 



Returns the next element in the geodetic 
path. 



LISAbE 



PARAMETERS 



ICL 
NBLG 
ILG 
NBCL 

IX 

LAST 



X = NOTR(G, ICL > NBLG, ILG.NBCLi IX, 
NBN,LAST) 

Input integer two dimensional matrix of 
dimensions 50 X 50. This is the dis- 
tance matr ix. 

Input integer scalar e«iual to the start- 
ing search index. 

Input integer scalar equal to the dis- 
tance of the 1 i nk. 

Input integer scalar e«iual to the ending 
search index. 

Input integer scalar e«!ual to the dis- 
tance of the desired 1 ink from the 
starting index. 

Output integer scalar used as an ^rror 
switch for incomplete paths. IX = 0 
means compl e te path. IX = 1 means no 
1 ink found. 

Input integer scalar esual to the last 
link fouiid. This is required to keep 
the algorithm sear chi ng down the same 
path. 



COMMON BLOCKS 



REQUIRED ISMS ROUTINES 



No ne 
None 



REQUIRED FORTRAN ROUTINES 



NoniSf 



ALGORITHM EMPLOYED 



The algorithm employed is described 
be 1 ow: 



Algorithm NOTR. Given the number of paths in a distance matrix* n, 
the distance matrix* Gi and other infor mation» determine the next 
element in the geodetic cYcle. 
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NOTRi. C Initial i2e. 3 ix <— 0, ibi <— 0. i <— 1 

NnTR2. [Find all elements with distance nbls from i 1 3 « I f sC i ^ i 1 ^ ] is 
not ecjual to nbl 9. then 9 0 to step N0TR4. 

• N0TR3. CKeep track of elemeVits with same distance.] iDt <- — ibi + l, 
1 C ibi ] i 

N0TR4- CLoop on i.l i < — i 1 . If i is less than or e^ual to n^ 
then 90 to step N0TR2. 

NOTRT'. Clf none founds than algorithm is compl ete. ] , If ibi = 0? then 
algorithm is complete. 

N0TR6. [Initialize.] i < — 1 

N0TR7. [Search for an element of proF'isr distance.] If 9Cicl»i].is not 
eRual to nb,cV> then 90 to step N0TR13. 

NOTRS. [See if this is the first link-] If last = 0, then 9o to step 
NO TRIO. 

NOTR"^. [Keep 9oin9 on same path.] If gClastvi] is not equal to li 
then 90 to step N0TR13. 

NOTRIO. [Initialise,] k < — 1 

NOTRI !• [See if this i is of proper distance.] If i = l[k]i then 90 
to step NUTR15. 

NOTRI ^. [Loop on k.] k < — k + 1. If k is less than or e«=iual to ibii 
then 90 to step NOTRI 1. 

NOTRI 3. CLuOP on i.] i < — i + 1. If i is/less than or e*=^ual to ni 
then 9 0 to step N0TR7. 

N0TR14. [No link found.] ix < — 1, then algorithm is compl ^le. 

NOTRI';'. [Return link.D notr < — ICkJi th^-n al sor i thm is comp 1 ett; . 
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Attachment No. 2 



INTERPRETIVE^ STRUCTURAL MODELING SOFTWARE 



Prepared by: 
David R. Yingling, 3r. 



19 J 



This User's Manual was developed for the ISM software on the 
University of Dayton computer. It illustrates the type of instructions 
that should be given to users wishing to utilize the ISM software. 



Attachment 2 - I 



19.^ 



JulY, 1979 



ISMS-UD Version 2.0 
University of Davton 

EBEE^CE 



Thi5 manual* is intended to serve as a user''s suide for the 
Interpretive Structural Modeling Software packase developed bv the 
Engineering and Public Policy Group at the University of Dayton* and as 
implemented on UD's Univac Series 70 computer operating under VS/9. 
This version of the manual was written under the assumption that its 
user is familiar with the ISM## methodology and supportive concepts but 
has had little or no previous experience on a computer, specifically the 
UD computer. Therefore, all basic procedures like LOGgins ON, etc. 
have been included so as to make this manual a stand alone guide. 

It is suggested that if the user plans to make extensive use of text 
files that he or she obtain Manual #4.1 (EDT) from the University of 
Davton Office for Computing Activities (OCA). This manual . is available 
free of charge and will make using the Univac File Editor (EDT) and text 
file editing much easier. 

If YOU find any discrepancies in this manual or ISMS-UD, please write 

to the address on the front page or call Monday thru Friday 

0800 to 1500 Eastern time. If the telephone is busy or no answer, 

"leave word" at and we will return your call. 



*The table of contents may be found at the end. 

*»Lnterpretive Structural tlodeling (ISM) is developed in John N. 

War field's Societal Sysiemsi Ela.nnlDa^^Eallc:^j^^ADd^C£iaiBl£xl±-^i Wilev- 

Interscience: New York, 1976. 
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(no page 1) 



ISMS-UD Version 2.0 



Ju1y» 1979 University of Davtpn 



IDIBDDUCIIDN 



The University of Davton ISMS Version 2.0, as im(»lemented on UD's 
time shaf='in9 computer SYstem, consists of three FORTRAN IV prosrams 
which perform embedding and amending, element text processing, and cvcle 
resolution. The follouiing is a brief description of each prosram. 



ISUSzUD - is the program that provides embedding and amending 
facilities for Interpretive Structural Models. ISMS-UD maintains a 
reachability matrix permanent file. A «iuerY file supplies the informa- 
tion necessary for full text queries. 



C^CLE - is the program that resolves the cycles contained in an 
Interpretive Structural Model. CYCLE creates and maintains a matrix 
containing numeric weights denoting the strength of relationships 
betuieen elements of a cycle. A query file supplies the information 
necessary for full text queries. 



tiOtKElI - is a program that restructures an EDT-created text file into 
a random access format required by the ISM method. The random access 
format is written onto the query file. 
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ISMS-UD Version 2.0 



JulYi 1979 



University of Davton 



UD^IIME^SHflBIWD«COMEUIEB^SYSIEtl 



The UD Computinsi Facility oujns a Univac Series 70/7 Time-Shar ins» 
Computer System. This third veneration virtual memory mul t iprosrammins 
system has 750K bytes of main core storage uiith a backing store of 6.4 
million bytes. Time-sharing input/output to the processor is handled by 
a communications controller attached to one of the multiplexor channels. 
The communications controller presently allows for 18 remote hardwire 
terminals and 33 remote dial-up terminals. Ten of the 33 dial-up ports 
are 300 baud with the remaining ports 110 baud« 



SYSIEM-SDEIUfiBE 

The Univac Series 70/7 computer presently runs under the operating 
system VS/9 Version 3.5. VS/9 is a group of Programs and subprograms 
which control input, compilation, assembly, loading, execution, and 
output of all programs submitted to the computer as well as the 
allocation of system resources. 



UNiyfiC-ElLE-EDIIOB^IEDIl 



If the user desires to have programs ISMS-UD and CYCLE present 
queries in an English text format? a two step procedure must be 
followed. Step 1: a sequential element text file must be created 
(using EDT). Step 2: the sequential element text file must then be 
converted into a query file (using MAKEIT). 

EDT is a r»rogram that permits the creation and modification of 
sequential element text files. EDT is invoked under VS/9 and responds 
to simple commands prefixed with an Q < •'at sign") which initiate, 
maintain, correct, and complete file construction. Although EDT is a 
comprehensive editing package capable of performing varied tasks, it 
presents minimal concern to the ISMS-UD user. A sample run using EDT 
can be seen in the Appendix of this document. For a more comprehensive 
discussion of EDT, the user is referred to OCA Manual #4.1 (EDT) 
available free of charge at the UD data center, Miriam Hall. 
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ISMS-UD Version 2.0 



JulY, 1979 



UniversitY of Davton 



EBOCEDUBES-fiWD-ItdEOBIfiNI-SySIEtd-CDhlCEBIS 



SCHEDULING THE USE OF THE UD COMPUTER 



The Univac Series 70/7 is a mu 1 t i programmi ns computer sYstem? that 
is, it i? servicing inanY users all at the same time. Conse«iuentl y» the 
more pe:«ple usins the SY5tem» the slower the turnaround time (response 
time). It is suggested that the user not schedule the use of the 
computer during prime time (i.e.» 1 P.M. to 5 P.M. weekdaYs ) and near 
tho end of the UD academic terms (usuallY first two weeks in both 
D«*cember and April). It has also been experienced near the end of the 
terms that dial-up ports are extremelY hard to set» so these words to 
the wise —PLAN AHEAD— START EARLY!!! 



AUTOMATIC LOGOFF FEATURE 



In order to keep dial-up ports from being tied up or occupied bY an 
inactive terminal user, the UD computer has attached to it a device 
which will AUTOMATICALLY LOGOFF A TERMINAL INACTIVE FOR NINE MINUTES. 
This is important to remember because sometimes the queries presented bv 
resuire a long period of time for thought and discussion, 
this discussion time, the computer under control of ISMS-UD is 
for an answer to the suerY? that is, the terminal is inactive, 
input/output is not done within nine minutes after the start of 
the terminal is automat i cal 1 y logged off and 



ISMS-UD 
Dur 1 ng 
uiai t i ng 
I f an 
the read, 



partially lost. It is suggested that the terminal manager 
an eve on the time and, if the nine minute limit draws 
discussion continues, tYPe an invalid input to ISMS-UD. 
inform the user of the invalid input and re-prompt with the 
The nine minute timer is then reset and the ISM saved. 



the ISM is 
or user keep 
near while 
ISMS-UD will 
same querY. 



SPECIAL CONTROL KEYS 



E li J II ± - 1 L a u s oi a J5 s i £i D - fcl 



An I one uho has used an interactive computer terminal knows that some 
special key on the terminal is used to signal the computer to take 
action on the typed input. On most computers, this is the RETURN key. 
The UD computer daea_aat_us.&_tL*,..BEIUBbl_La-;<i, but instead, the depressing 
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of tujo keys simultaneously. These two keys are the CTRL and C keyst 
denoted as CTRL C- That is* when the user wants to type a command to 
the computeri he or she first types the command and then sends the input 
to the computer by holding down the CTRL key and typins a "C*'. It will 
be assumed from here on that the user understands this principle. 



Two input error correcting keys are supported by the Univac hardware. 
They are: 

"CTRL X" — cancels the input line. The processor responds with 



••SHIFT 0'* or "UNDERLINE" — - is essentially a backspace key. When 



Both error correcting keys may be used while running the operating 
system and ISMS-UD. 



PARITY AND DUPLEX SETTINGS FOR DIAL-UP OPERATION 
•The parity setting on the terminal must be E^EfcJ. 

The duplex setting on the acoustic coupler (and terminal if applic- 
able) must be dfiLE. 



PERTINENT TELEPHONE NUMBERS 

The telephone numbers below should be kept handy. 



7.CNCL to indicate the line was canceled. 



typedt it tells the processor to ignore the last typed 
character before the SHIFT 0 or UNDERLINE. (The type of 
terminal used dictates which is appropriate.) 



- 110 BAUD 

- 110 BAUD 

- 300 BAUD 



- SYSTEM STATUS/SCHEDULE (recording) 

- UELE ! ' « « 
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dOU-IO.LOGOtJ 

There are two tvpes of terminals that can be used on the UD computer? 
the hardwired terminal i-'hich is directlv connected to the computer* and 
the acoustically coupled terminal which is connected to the computer via 
the telephone system. Each type of terminal requires a different LOGON 
procedure which will subse«»uen 1 1 y be discussed.- 



PROCEDURE FOR LOGGING Dbl A HARDWIRED TERMINAL 



1. Turn on the power switch on the terminal. 

2. Set the DUPLEX switch to HALF. 

3. Set the LOCAL/LINE switch to LINE. 

Note: On a Teletype Model 33» turn the control knob (below and to 
the risht of the keyboard) counterclockwise instead of the 
above three steps. 

4. While depressing the CTRL key» type a "C". The terminal should 
type: 

•/.E222 PLEASE LOGON 
/ 

5. The user should then type 

/LOGON u5erid#i »C->assword- 

followed by a "CTRL C". The computer will then type various 
information about the task and return with a slash (/). 



PROCEDURE FOR LOGGING QN AN ACOUSTICALLY COUPLED TERMINAL 



I. Turn on the acoustic coupler s on/off switch if usins a terminal 
with an external coupler (this switch is usually unmarked). 
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2. Turn on the power siuitch on th^ terminal. 

3. Set the PARITY switch on the terminal to EVEN. 

4. Set the DUPLEX switch on the coupler and/or terminal to HALF. 

5. Set the LOCAL/LINE switch on the coupler and/or terminal to 



Notes On a Teletype Model 33» turn the control knob (below and to 
the right of the keyboard) counterclockwise instead of 
steps 2 and 5 above. 

6. Set the BAUD switch to the desired position (either 110 or 300 
baud — sometimes denoted as 10 characters/sec. or 30 
characters/sec.) on the terminal if so e<iuipped. « 

7. Dial the computer's te 1 ephone number for the baud rate you wish 
to use (see *'pert inent ^hone numbers "... remember to dial 9 first 
if using a phone on campus). The phone should ring twice and 
the computer will answer with €i high pitched tone. 

8. Upon hearing the tone* immediately place the phone into the 
cradle» There should be some directive on the coupler indicat- 
ing at which end the phone cord should be. 

9. The CARRIER or SIGNAL light on the coupler will be lit and the 
terminal will print: 

y.E222 PLEASE LOGON 
/ 

10. The user should then type 

/LOGON userid#i , C"' password" 

f'-'llnwed 1^1- a "CTRL C". The computer will then type various^ 
information about the task and return with a slash (/). 

Provided that the user types a syntactically correct LOGON command- 
containing a valid userid# and password? the system should be ready and 
luaiting. 



LINE. 
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LOGON PROBLEMS 



Ii_±bfi_££iiDBiii:fii:-£Ji3fi£ii-l-a£iswf c » it is probably not operational, and you 
may obtain a recorded status/schedule report (see "pertinent telephone 
numbers " ) . 

Ii_a_tiiJs;>.'_iiJL3iiaI_is_i::e££!iyfid» this indicates all available lines are in 
use. Try asain in a few minutes. 

if^ the. ccioiEuticiE: acisiuecs^ Ecicits ciothiciai. and-aiiickli£..baiias_iiE» the 

parity settiny is usually incorrect or the Phone was incorrectly placed 
onto the coupler. 

:i£iU--±:iBi^» the DUPLEX setting is incorrect. 

The above are som^? of the more common problems with the LOGON 
procedure. There aire many variations of the above problems which have 
not been discussed. If Your LOGON problem is temporary^ that is^ you 
successfully LOGsed ON yesterday but have not been able todays feel free 
to call the UD Office for Computins Activities HELP line (see "pertinent 
telephone numbers") for help. You could be informing them of a system 
error. If rou have li^yfii: been able to successfully LOGON » please call 
us. the Engineering and Public Policy Group at or y 

and we will be happy to discuss your Problem. 
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If the user desires to have programs ISMS-UD and CYCLE present 
queries in an English text formats two things are necessary- First7 a 
se^^uential element text file must be created using the Univac file 
editor EDT. The se«^uential element text file consists of control 
information. and the f^nglish text for the relational expression and for 
each element to he cons^idered- 

Second» the sequential element text file must be converted into a 
random access format required by the ISM method- Program MAKEIT 
performs this function on t?^e ^se«^uential element text file and uirites 
the random access format onto a suerv file- 



EQBtifliI^QE^IHE-,lNEUI-SEQUEI^IiaL«ELEtlEblI-IEXI«ElLE 



The format' of an example input se«<uential text file can be seen in 
its entirety in the Appen'-'tx- Certain slash (/> keywords are used to 
identify the records to be used for the five outputs typed on the 
terminal for each question when full text queries are used- The five 
outputs are: 

1 ) i ntr oduct ory cl ause 

2 ) el ement a 

3 ) re 1 at i ona 1 c 1 ause , 
4 ) el ement b 

5 ) qual i f y i ns c 1 ause 



An e -ample of the above is: 

DOES 

DEVELOPING SOCIAL INCENTIVES TO LIMIT 

HUMAN BIRTHS 

HELP 

TO ASSURE EACH FAMILY SUFFICIENT LAND FOR 
THEIR FOOD NEEDS 

IN THE SAHEL REGION OF AFRICA ? 
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The input sequential text for the above output is! 

/Rl 
DOES 
/R2 
HELP 

/R;3 

IN THE SAHEL REGION OF AFRICA ? 
/EL 

DEVELOPING SOCIAL INCENTIVES TO LIMIT 

HUMAN BIRTHS 

/EL 

TO ASSURE EACH FAMILY SUFFICIENT LAND FOR 
THEIR FOOD NEEDS 
// END 



The slant (/) control kevuiords define the tvpe of clause for the 
line(s)» immed lately following them. These definitions are listed 
belou. 

/Rl = i ntr oductorv clause 
/R2 = relational clause 
/R3 = qualifying clause 
/EL = element text 

// = physical end of sequential element text file 

It IS important for you to understand that MAKEIT orders the element 
texts sequentially, starting with one and incrementing by one. That is, 
element number ten in the list is defined by the text immediately 
f.ol lowing the tenth /EL card, and so on. 



»The maximum number of lines is 10, The minimum number of lines 

15 1. 

»The maimum number of characters on one line is 60. The 
minimum number of characters on one line is 1. 
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EULL_IEXI-DUEBIE£„CHECfc:LISI 

To use full text queries? fctllow this checklist: 

1) Using EDT» tvpfe in the element list to form a sesuentlkl 
element text file. . - 

2) Run prosram MAKEITuith the'' sequent ial text file created in 
EDT (during step/l). ' 

3) Whe. tvpins the "DO" command' execu t ins ISMS-UD 'or CYCLE, be 
sure to tvpe the name of tb-e Sequential text file as the 
second operand. • .,• ^--^ . 

4) Answer "Y" to the "FULL TEST QUERIES DESIRED" question that 
is presented in ISMS-UD or- CYCLE. 



IEII_DlSELaYLNG.;ditiiIS 

The fallowing are some of the optional capabilities of the ISMS-UD 
f »j1 1 text Ruerv facility. ^ 



CLEARING THE SCREEN OF A CRT 

If a CRT (cathode rar tube) terminal is being used for an ISM 
session, is possible to' have ISMS-^UD clear the screen of the display 
before each query. To do thisi all that. is necessary is to make the 
screen clearing character the first character of the introductor 
clause. The clearing characfter is usually a CTRL L on most CRTs. 



Y 



Iq clean. ttxe. scceeci beiate. each auacixj- — txEe.-a-CIBI — I — as-the--£icist 



SPACINO BETWEEN FRAMING CLAUSES 

The term "framing clauses" denotes the combination of 'the introduc- 
tor, cUu5e> relational clause, and qualifying clause. The output using 
full te t queries is aliuays in the form shoiun on pagje 10. It is 
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sometimes desirable t the "luerY with sj-acins between the 

fr^mins clausesi e.? 

DOES 

DEVELOPING SOCIAL INCENTIVES TO LIMIT 
HUMAN BIRTHS 

. HELP 

TO ASSURE EACH FAMILY SUFFICIENT LAND FOR 
THEIR FOOD NEEDS 

IN THE SAHEL REGION OF AFRICA ? 

>n order to increase readabliltY. This can be achieved bY insertins a 
line with one blank character 1) after the introductorY clause, 2) 
m-. before 4nd after the relational clause* and 3) before the RualifYins 
clause. 
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lWIEBEBEIl^E..SIBUCIUB6L^fclQDELlWQ^SQ£IUaBE-.EaCfe:aGE 



The Interpretive St^-uctural Model ins Software Packaseconsi sts of 
.three interactive FORTRAN IV programs which perform operations required 
to c»:«nstruct and modify Interpretive Structural Models. The follouins 
IS a description of each program- References to John Warfield's booki 

Sacie.tal^S;i.&te.[ZiSL BlaaQiQa^.£oiliC'i:^^aad-.Ca[iieIe.i^it^T ujil 1 be made to 

help the user locate the theory used. 
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EBQGBatl-tiaKELI 



EUaEQSE-QE-tiatElI 



t 



Proeram MAKEIT accepts a 5e«iuential element text file, reconstructs 
it into a random (direct) access format for full text «»ueries, and 
writes this information onto a querv file. The program is conversation- 
al in nature to allow the user to display (show) on his or her terminal 
all elements, or specific pairs of elements, as thev might appear during 
an ISM session. " 



If YOU do not know what a sequential 
"ISMS-UD FULL TEXT QUERY FACILITY". 



element text file is, see 



yDU_ID_U£E_tiafc:EII 



1. To invoke program MAKEIT, use the operating system command /DO 

MAKEIT. This command has one required operand - the name of the 

iriPut sequential element text file (i.e., the riame used in the EDT 

©WRITE command). The output query file is automatically named and 
initialized by*^ pref ixing the sequential element text f i I'e name with 

"RND.". The user does not have to worry about this file naming and 
creation. 



Examp 1 e . . . . 



/DO MAKEIT, (textf ilename) 



IF... an invalid file name* is typed, the operating system will 
produce these error messages and will not let you run MAKEIT! 

y. D5^l INVALID FILENAME. COMMAND TERMINATED. 

•/. EC) 1 5 ERROR IN PRECEEDING CMD - CMDS IGNORED TILL STEP OR LOGOFF. 
•/. E804 ENDPROC RETURNED TO PRIMARY. 



♦A valid file name is I to 53 characters with no initial 
numerics and no embedded blanks. 
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Retype the "/DO" COMMAND. 



IF... the syntax of the /DO MAKEIT command is incorrect, the 
operating system will reject the command and type this error 
message : 

•/. El 40 OPERAND SYNTATICAL ERROR? REENTER THE DO COMMAND 



IF... the /DO MAKEIT command is typed syntactically correct with a 
valid file name, the operating system will type ^these messages 
indicating that MAKEIT is being loaded for use: 

'/. P500 LOADING VER# 001 OF ISMS. 
FORTRAN IV PROGRAM MAKEIT STARTED MM/DD/YY 



MAKEIT now begins reading the sequential element text file named in 
the /DO MAKEIT command. 

IF... an unsuccessful read by MAKEIT occurs, the operating system 
will type this error message! 

MAKEIT TERMINATED: TOO MUCH DATA REQUESTED FROM RECORD : P1~CTR 
= NNNNNNNN. 

SELECT DEBUG OUTPUT OPTIONS ( D, S, A, B, C, HELP ) 

Tvpe a "CTRL C" and the computer will return to the operating 
system mode enabling the user to correct the problem. 

Reasons for an unsuccessful read operation ares 

1. the eWRITE'textf 1 lename': 1-60: command in EDT was 
not used. 

2. the file name specified in the /DO MAKEIT command was 

not a sequential element text file. >■ 



IF... MAKEIT encounters invalid sequential element text file syntax, 
these error messages will be printed and MAKEIT will terminate 
prematurely: 

««»ERROR*** INVALID SLANT KEYWORD ENCOUNTERED 
RE-EDIT TEXT FILE TO CORRECT 
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♦**MAKEIT TERMINATED*** 
Re-edit the 5e«<uential element text file in EDT and trv asain. 



iF.-.no problems are encountered* MAKEIT will print this messases 

PERMFILE HAS BEEN CREATED FOR FULL TEXT QUERIES 
SHOW(Y/N) ? 

♦ 



3. Answer "Y" or "N". 



IF... the user types "N"» MAKEIT will terminate and return control 
to the operating svstem. 



IF... the user tvpes "Y'S this message will be tvpeds 
" SHOW ALL ELEMENTS ? (Y/N) 



4. Answer "Y" or "N". 



IF... the user tvpes "Y"i all of the elements are shown, i.e.» 
printed at the terminal as th^ijY might appear during an ISM 
session. MAKEIT terminates and returns control to the operat- 
ing system after showing all elements. 



IF... the user types "N", this message will be typed; 
SHOW WHICH ELEMENTS ? 

♦ 



T.pe the numbers of the two elements that you desire to see. MAKEIT 
will ^ eep accepting and showing element pairs until zeros are typed. 
At that time, MAKEIT will terminate and return control to the 
operating system. 
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Program ISMS-UD is essentiallY the hub of the ISMS-UD Version 2,1 
software package. ISMS~UD allows the user to embed the ISM utilising 
the theory of transitive bordering on a reachability matrix* as weU as 
modify the ISM. Elements that are adjacent on the disraph map? or 
elements that are on the same level or stage of the hierarchy and are 
not connected are able to be modified**. ISMS-UD maintains and operates 
on a reachability matrix which allows a digraph to be obtained after- 
each operation on the matrix. ISMS-UD also allows the user to embed the 
ISM by using his own queries or the computer^'s queries. 



baU-IQ^U£iE-.l£tlS=UD 

1. To invoke ISMS-UEu use the operating system command /DO ISMS-UD. 
This command must include the following two operandss 1) the name 
of the permanent file which is to contain the ISMi and 2) the name 
of the sequential element text file for the full text queries 
option. 

Exampl e: /DO ISMS-UD»''( mode 1 f i 1 ename, text f i 1 ename ) 



IF. ..full text queries are not going to be usedi type ^"JUNK'* for 
the second operand. 



IF... no model file exists^ the operating system will create one and 
give it the name typed for operand one. 



*John N. Warfieldt SociiEfial S^'S±emsi BlAnn^DS^ — B£illcx — a^nd 

CuaiEle.^i.t-u (New York: Wi 1 ey- 1 nter sc iencei 1976 ) » p. 237. 



**Warfieldt p. 356. 



21^ 



18 



JulY. 1979 



ISMS-UD Version 2.0 
University of Davton 



IF... a file name is not tvped for both operands^ the operatins 
SYstem win produce these error messase* and will not let you 
run I SMS -LID: 

■/. D531 INVALID FILENAME. COMMAND TERMINATED. 

*/. E015 ERROR IN PRECEEDING CMD - CMDS IGNORED TILL STEP OR LOGOFF. 
■/. E804 ENDPROC RETURNED TO PRIMARY. 



IF. ..an invalid file name i* eriirered^ the operating SYstem will 
respond with ore of the folloruins error messages: 

7. El 46 ILLEGAL SYMBOLIC PARAMETERS DETECTED WHILE PROCESSING 
PROCEDURE FIL^; PROCEDURE FILE TERMINATED. 



7. El 44 SYMBOLIC PARAMETER OPERAND ERROR » REENTER THE DO COMMAND. 

IF... the syntax of the /DO ISMS-UD is incorrect, the operating 
SYstem will reject the command and type this error message: 

7. E140 OPERAND . SYNTAT I CAL ERROR? REENTER THE DO COMMAND. 

After each of these error messages, retype the "/DO" COMMAND.. 



IF... the* /DO ISMS-UD command is coLttectla: txEfcdi the operating 
system will type these messages indicating that ISMS-UD has 
been loaded for use: 



A "new system" is an ISM that has never been initialized. Answer 
"Y" or "N". 



7. P500 VER# 2.0 OF ISMS-UD LOADED AT LOCATION 000000. 



FORTRAN IV PROGRAM ISMSUD STARTED MM/DD/YY 



ISMS-UD 15 now in control and it asks: 



NEW SYSTEM ? (Y/N) 
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IF. . . "Y" is tvpedt ISMS-UD will assume a new ISM is be ins senerated 
and proceed to the next «iuestiDn. 



IF...^'N" is typed, ISMS-UD will trv to read in the ISM from the 
model file named in operand one of the /DO ISMS-UD command. 
An unsuccessful attempt to read the ISM will result in one of 
the following error messages to be tvpeds 

ISMSUD terminated: READ OPERATION ON A NON-EXISTENT ISAM 
FILE: Pl-CTR = NNNNNNNN. 

SELECT DEBUG OUTPUT OPTIONS < D, S, A, B, C, HELP ) 

BORD terminated: ISAM SEQUENTIAL ERROR ODAE: PI- CTR = 
NNNNNNNN. 

SELECT DEBUG OUTPUT OPTIONS ( D, S, A, B, C, HELP) 

Type a "CTRL C" and the computer will return to the operating 
system enabling you to retype the /DO ISMS-UD command. 



3. Next, ISMS-UD types: 



TYPE ISMS-UD CMD ? (OR "HELP") 



Type either a two letter ISMS-UD command described below or the 
ke.uiord "HELP" in order to obtain a list of valid ISMS-UD commands. 



ISMS-UD-COtJdfiWDS 



ISMS-UD recognizes the following two letter keywords as command 
1 ri p u t : 



BO COMMAND 



The BO command allows the user to invoke the trinsitive bordering 
algorithm to embed an element into the ISM. ISMS-UD uri 1 1 first ask: 
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FULL TEXT QUERIES DESIRED ? (Y/N) 



Answer "Y'* or ''N''. 

IF... the user types ••Y"i and the f i 1 ename , f or operand two of the 
/DO ISMS--UD command is: 1) not the name of a sequential 
element text file^ or 2) the name of a sequential tvlement text 
file lhat has not undergone the program MAKEIT sequence^ the 
operating system will type this error messages 

ISMSUD TERMINATED: ISAM ERROR 0D9AS Pl-CTR = NNNNNNNN. 
SELECT DEBUG OUTPUT OPTIONS < D. S. A. B, HELP) 

Type a "CTRL and the computer will return to the operating 
system mode which will enable you to retype the /DO ISMS-UD 
c ommand . 

Ne;>a^ ISMS-UD asks; 



Answer '*Y'* or "N". 

IF, ••you are in doubti answer "N". A subordination relation is a 
transitive relation where if Element A is related to Element 
then Element B is not related to Element A. This is an 
optimization for the transitive bordering algorithm which 
eliminates the possibility of feedback (cycles) and reduces 
the number of quest i ons requ i red to embed an e 1 ement for this 
bordering session anl:^, Cautlan* be sure that you understand 
the meaning of a subordination relation. In most cases a 
subordination relation is nxil deslL£id. When in dcubti answer 

Note: Once these "Questions have been answered in an ISM session^ 
they cannot be change/j until a TE command is received and a new 
sess 1 on started . 

Th'^ next <=iuest ion i s: 



SUBORDINATION RELATION ? (Y/N) 



TYPE NEXT ELEMENT NUMBER OR 0 FOR BREAK 




ISMS-UD Version 2.0 



Juli» 1979 University of Davton 



Type the number of the first element <if a new system) or the 
next element (if an old system) to be included in the ISM. 

IF.. .a new system is beins model ed» ISMS-UD will form a 1 X 1 
reachability matrix and respond with the same question asain 
to set a S€!c6^ element to besin the questionins process, 

IF,.. a non-numeric entry is typed? ISMS-UD will respond with: 
#*»ERROR*** INPUT NOT NUMERIC-- RETRY 



IF... the number typed is already in the system? ISMS-UD will sive 
this error messages 

♦♦♦ERROR*** NNNN ALREADY IN SYSTEM INDEX 

and ask for another element number. 

IF., .a 0 (zero) is typed? ISMS-UD will ask for the next command 
keyword. 

IF.,, a valid element is typed? ISMS-UD will present the ^lueries 
nece ssary to embed the e 1 ement . 

When «*ueries are presented? answer with either "Y"? "N'S or **AB'^ 
ISMS-UD will retype the response it received and 

IF... a "Y'' or "N" is received? ISMS-UD will insert a one or 
zero? respectively? in the proper location in the reachability 
matrix and present the next «^uery, 

IF,.."AB" is received? ISMS-UD will abort the bordering- 
algorithm for the element being processed and ask for the next 
c 0 rT»rTia n d k e y word. 



ERLC 



IF...ari invalid response is received? ISMS-UD will issue an 
error message and present the «^uery again. 
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After the new element is properlv embedded. ISMS-UD will ask for 
another element number to besin the bordering algorithm asain. 



BOQ COMMAND 



The BOQ command allows the user to invoke the transitive bordering 
algorithm to embed ah element into the ISM bv using his or her own 
queries. (Note! If this is the first time the transitive bordering 
algorithm is being started^ the "full text" and "subordination 
relation" «iuestions will be asked as in the BO command; however* if 
thev have already been asked. ISMS-UD will assume the answers to be 
the same as in the BO command. ) 

Next. ISMS-UD will ask for elements as it did in the BO command. 
When a valid new element is accep.ted. ISMS-UD will ask! 

WHICH ELEMENTS TO BE COMPARED ? (TYPE 0 FOR AUTOMATIC) 

Now type the elements to be used in the, query in the order to be 
compared (i.e. if 2.3 is typed, the query will ask if 2 is related 
to 3). Remember ... the new element anj5± be one of the two elements to 
be compared. 

IF... the' relation betueen the elements typed has already been 
answered. ISMS-UD will respond with! 

SORRY. THIS QUESTION HAS BEEN EITHER ASKED ALREADY OR 
FILLED BY INFERENCE ELI R EL2 = YES (NO) 



IF.-.O (zero) is typed. ISMS-UD will send a message acknowledging 
the 0 and will begin to issue queries automatically. The 
automatic queries option only lasts for the new element. When 
the next element is entered. ISMS-UD will 'again ask' for 
elements to be compared. 
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DI COMMAND 



The DI command directs ISMS-UD to extract and print the disraph cf 
the current reachability matrix ISM in a levels format. No other 
user interaction is re«»U|fcred for the execution of this command.. 



DIS COMMAND 



The DIS command directs ISMS-UD to extract and print the digraph of 
the current reachability matrix ISM in a stases format. No other 
user interaction is re«»uired for tite execution of this command. 



ADD COMMAND 



The ADD command alloucs the user to add elements to the ISM. This 
command should be used in conjunction with the AE command to add 
elements and their relationships. - ISMS-UD will tvpe: 

TYPE ELEMENTS TO' BE ADDED ? 

( 

Type the number of the element to be added. ISMS-UD uill keep 
acceptin9 elements to be added until a zero is tvped. 



ELIM COMMANl!i 



The ELIM command permits the elimination of elements from the ISM. 
ISMS-UD types this messages 

TYPE .ELEMENT NUMBERS TO BE ERASED ? 



T , pe the number of the element you uish to eliminate from the ISM. 
I iMS-UD uiill keep acceptins element numbers to be eliminated until a 
zero 15^ typed. 
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AE COMMAND 

«4 



The AE command allows the user to add a relationship (edse) on the 
ISM.. ISMS-UD wi 1 1 type: 

TYPE <:a reaches to B> 

* 

Type the two elements to be connected. The edges to be added are 
accepted until a zero is typed for one or b^th of the elements. 



EE COMMAND 



The EE command allows the user to eliminate a relationship (edge) cn 
the ISM. ISMS-UD will ty«»e: 

TYPE <A REACHES TO B> TO BE ERASED 

Ti'pe the two elements to be disconnected. The edges to be discon- 
nected are accepted until a zero is tyF'ed for one or both of the 
elements. 

IF... either element is not on the minimum edge digraph (i.e. the 
elements are not connected in any way)» ISMS-UD will issue an 
error message and ask for next command keyword. 

IF... the edge entered does not exist (i.e. elements are connected 
but not directly), ISMS-UD will i5s>ue the following error 
mes sage : 

»#*ERROR»** THE EDGE FROM NNN TO MMM DOES 'NOT 
EXIST ON MINIMUM EDGE DIGRAPH 

IF... the elements typed are in a cycle, ISMS-UD will type: 
<n^»ERROR*»* NNN ANO MMM ARE IN A CYCLE 

2Vj 
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^^ELIM^' NNN AND RE-ENTER USING THE '^BO" COMMAND 

Eliminate either one of the elements from the svstem arid re--embed 
usinsi either the BO^ BOQ^ or ADD and AE command. 

PO COMMAND 



The PO (Pooling) command permits the user to combirte, unconnected 
eements on the same level or stase of a hierarchy into one single 
element. ISMS-UD uiill tvpes 

TYPE TWO ELEMENTS TO BE POOLED ? 

if 

Type the two elements to be pooled. 



IF... the elements to L^e pooled are not on the same level or stase^ 
ISMS-UD Uiill issue the following error message and ask for two 
elements to be pooled. 

^♦^ERROR*** NNN AND MMM 'ARE NOT ON THE SAME LEVEL 

OR STAGE 

IF. ..the two elements pass the error checks. ISMS-^UD will type 
NEW INDEX NAME ? 

Type the number that the new element is to take on. 



IF.. .the new index number typed is already in the system^ ISMS-UD 
wiH inform the user of the error and ask for another new 
inde>^ number, 

Llements to be pooled are accepted until two zeros are typed. 



2i,> 
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EC COMMAND 



The EC (Elementary Contraction) command allows the user to combine 
two adjacent elements on different levels or stages of a hierarchy 
into one single element. ISMS-UD mill type: 

TYPE TWO ELEMENTS TO BE CONTRACTED ? 

Type the two elements to be contracted. 

• I- ■ 

IF... the elements are not adjacent, ISMS-UD will issue the follow- 
insi error message and ask for two elements to be contracted. 

♦«*ERROR««* NNN IS NOT ADJACENT TO MMM 

IF... it 15 possible to contract the elements, ISMS-UD will type: 
NEW INDEX NAME ? 

Type the number that the new element is to take on. 

./ 

IF... the new index number typed is already in the system, T5MS-UD 
will informVhe user of the error and ask for another ne^ 
index number.^ 

Elements to be contracted are accepted until two zeros are typed. 



TE COMMAND 



The TE command directs ISMS-UD to terminate and return control to the 
operitinsi system. 
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IStdS^UD^BESIABIS 



Qticasional 1 Yi problems mav arise with a computer sYstem which will 
render it inoperative. These occurrences are usual 1y infre«iuent and 
short. The UD computins facility maintains a 967. up time (i.e-i the 
computer is operational 967. of the scheduled operation time). Even with 
this excellent record, the restart capabilities of ISMS-UD should be 
noted. The ISMS-~UD software has been designed in such a waY that the 
model permanent file is updated after an operation onto the ISM is 
completed. The updating operation occurs immediately before this 
message is tYPeds 

TYPE ISMS-UD CMD ?. OR ^ ( '»HELP" ) 

It can be seen that a small part of the ISM can be lost if the computer 
crashes (breaks down) while executing anY of the embedding or amending 
commands. Restarting is verY easy however. " See the procedure belQW. 



baw-ta^cestaLt-.a_lStiar:UD«seasiaa-.a£tec-,a-time=:abac:iaa-axatem 

1. Type the /DO ISMS-UD command with the name of the model 
permanent file and the sequential element text file to bi^ 
restarted. 

2. ^ Answer "N** to the '*new system" «=^uestion. ISMS-UD now has a 

COPY of the ISM^ 

3. (OPTIONAL) Type ''DT* to display the digraph of the restarted 
ISM. 

4. T I pe the ISMS-UD command you were using when the computer 
crashed- 

5. Continue normally. 
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EUBEQSE-QE-C^CLE 

Program CYCLE resolves cvcles contained in an Interpretive Structural 
Model. The user creates and maintains a weishted adjacency matrix that 
denotes the strength of relationships between elements in the cycle. 
CYCLE allows the user to obtain listings of the resolution thresholds 
threshold matrix* and the geodetic paths* . 



BGU>IV1_USE_C^CLE 



1. To invoke CYCLE, use the operat i ngi, system command /DO CYCLE. This 
command must include the following two operands: 1) the name of the 
permanent file which is to contain the weighted matrix* and 2) the 
name of the sequential element text file for the full text «^ueries 
option. 

E rample. . . /DO CYCLE, ( we i ghtedmatr ixnafrie » textvi lename) 



IF... full text queries are not going to be used, type "JUNK" for 
the second operand. 



IF... no weighted matrix file exists, the operating system will 
create one and give it the name typed for operand 1. 



IF... an invalid filename or a filename is not typed for both 
operands, the operating system will produce these error 
messages and will not let you run CYCLE! 

V. D5?l INVALID FILENAME. COMMAND TERMINATED. 

•/. EOIT. ERROR IN PRECEEDING CMD - CMDS IGNORED TILL STEP OR LOGOFF. 
•/. E£:04 ENDPROC RETURNED TO PRIMARY. 



*Warfield, pp. 328-43 



224 



ISMS-UD Version 2.0 



University of Davton 



Retype the VDO" COMMAND. 



IF... the syntax of the /DO CYCLE command is incorrecti the 
operating system will reject the command and type this error 
messases 

•/. El 40 OPERAND SYNTATICAL ERROR? REENTER THE DO COMMAND. 



Ir...the /DO CYCLE command is cancLectl:*: t.j:Bed» the operating system 
will type these messases indicating that CYCLE is beins loaded 
for use5 

/. P500 LOADING VER# 001 OF ISMS. 
FORTRAN IV PROGRAM CYCLE STARTED MM/DD/YY 



CYCLE is noui in control and it asks 2 

FULL TEXT QUERIES DESIRED ? (Y/N) 

Answer "Y'' or "N". 



IF... the user types "Y" and the file name for operand two of the 
/DO CYCLE command iss 1) not the name of a se^^uential element 

text file* or 2) the name of a sequential element, text file 

that has not undergone the prosram MAKEIT se«iuencei the 

operating system will type the following error message after 

ittemptins to print the first full text suerys 

CYCLE terminated: ISAM ERROR 0D9A: Pl-CTR = NNNNNNNN. 
SELECT DEBUG OUTPUT OPTIONS ( Di S, Ai B, C, HELP > 

Type a '*CTRL C" and the computer will return control to the 
•operating system enabling you to retype .the /DO CYCLE command. 
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The n e >•: t questiori is! 

NEW SYSTEM ? (Y/N) 
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A "new sYstem" is a weishted matrix that has never been initialized. 
Answer "Y" or "N". 

IF..."N" is typed, CYCLE will trv to read in the weighted matrix 
from the file named in operand one of the /DO CYCLE command. 
An unsuccessful attempt to read in the matrix will result in 
the fo 1 1 owins error messase to be printed: 

*EXLST = OPENERR* 

CYCLE will terminate and return, control to the operatin9 
system. 

IF..."Y" is typed, CYCLE will then type: 
NUMBER OF ELEMENTS (50 MAX.) ? 

♦ 

Type the number of elements that are contained in the argument 
cycle. CYCLE will then ask: 

REGULAR INDEXING OF ELEMENTS DESIRED ? (Y/N) 
Type "Y" or "N". 



IF... the user types "Y", CYCLE assisns sequential numbers to 
the elements in the cycle. That is, the indexes for the 
elements are assigned as 1, 2* ... n (where: n is the 
number of elements). 



IF... the user types "N", CYCLE then types: 
ENTER INDEXES ONE AT A TIME 

The user is now allowed to specify his own index numbers 
for the elements in the cycle. Type the intesers that 
define the index set one per line. 

The advantase of beins able to specify index set 
numbers is apparent when utilizins the full text -queries 
option. For example, suppose elements 3, 7, 59, and 62 
of a particular ISM were in a "cycle. If full text 
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•queries were desiredt the user would have to specify his 
index set as 3» 7» 59» and 62 in order to be able to use 
the same text file as he did for the embeddins session. 
If *Ve«iular indexing" were mistakenly used? the text for 
elements li 2» 3> and 4 would appear whenever full text 
•queries were re«iuired and would lead to a sreat deal of 
confusion. 

4. Next, CYCLE types: 

TYPE CYCLE COMMAND (OR "HELP") 

Type either a two letter CYCLE command or the keyword "HELP" in 
order to obtain a list of valid CYCLE commands. 



CYCLE-COMMfiWDS 

CYCLE recognises the following two 1 etter keywords as command input! 
AL COMMAND / 



The AL command allows the user to add elements to the weighted 
matrix. CYCLE types this messages 

' ELEMENT NUMBER TO BE ADDED ? 

Type the number of th<r element you wish to add. CYCLE will then asks 
BORDER ON THIS ELEMENT ? (Y/N) 

♦ 

Answer "Y" or "N". 

IF, ..the user types "Y", the weights pertainins to this element can 

be conveniently assigned by "bordering" down the side and 

bottom of the weighted matrix. CYCLE w.i 1 1 present "Queries to 
the user. 
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IF... the user tvpes "N", the weights are not able to be "bordered" 
in and must be must be entered via the CH command. 

Added element numbers are accepted until a zero is tvped. 

« 

CH COMMAND 

The CH command allows the user to change anv weight in the weighted 
matrix. CYCLE tvpes this message: 

ENTER A REACHES TO B» WEIGHT (3 NUMBERS) 

♦ 

Type the element indexes defining the relationship and the new 
weight. CYCLE will keep accepting changes until three zeros are 
tvped. 

The CH command can also be used to initially insert weights into the 
ma t r i k . 



DL COMMAND 



The DL command allows the delation of elements from the weighted 
matn;;. CYCLE types this message! 

ELEMENT NUMBER TO BE ERASED ? 

Type the number of the element you desire to delete from the weighted 
matrix. CYCLE will keep accepting element numbers to be deleted 
until a zero is typed. 



FI COMMAND 



The FI command facilitates the loading of the weighted adjacency 
matri:>.^ by automatically presenting all the •lueries necessary to f.ll 
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th« m«itrix. In addition* if the full text -lueries option uias 
selected* the FI command will use the text (rather than Just the 
numbers) of the elements durinsi the automatic process. The user 
should respond to each querv bv tvpins an ihteser (less than 10) 
which represents the weight of the relationship between the elements. 

EI«C0aafiMD-.fiESI6BIILID. When usin^i the FI command, the user must' answer 
(N»»2)-N questions in order to completely fill the uieishted matrix 
(where: "N" is the number of elements in the weighted matrix). A 
restart/termination feature is available since the number of ques- 
tions could become quite larse. To use the restart feature* simpl y 
tYPe a weight of 10 for the element paii;? you wish to terminate with. 
CYCLE can now be terminated and resumed at a later time. If the FI 
command is typed* questioning will resume with the element pair for 
which the weight of 10 was specified. The restart feature may be 
used as many times as required. 



PR COMMAND 



The PR command prints the weighted matrix in its present state on the 
terminal. No other user interaction is required for the the 
execution of this command. 



The RE command is essentially the main command of CYCLE. This 
command calculates the resolution threshold of the current weighted 
matrix. The resolution threshold* threshold matrix* and geodetic 
paths are printed at the terminal. . No other user interaction is 
required for the execution of this command. 



The TE command directs CYCLE to terminate and return control to the 
opera t 1 ng system. 



RE COMMAND 



TE COMMAND 



22 




34 



ERIC 



JulYf 1979 



For each of the follouiins sample program runsT the follourtna text 
file is used for the full text queries option. The text file is 
presented as the user aiould tvpe it in usins EDT. Comments 
pertainins to each sample run wi 1 1 --immediatel y follow the listins of 
the sample run. ^ 



/EXEC EDT 

7. P500 VER# lOB OF EDT LOADED AT LOCATION 000000. 



EDITOR LOADED (VER 10B)» BEGIN TYPE IN: 



1.0000 /Rl 
2.0000 DOES 
3.0000 /R2 

4.0000 WEIGH MORE THAN 
5.0000 /R3 

6.0000 IN MOST CASES? 
7.0000 /EL 

:3.0000 A BREATH OF AIR (1) 

9.0000 /EL 
10.0000 AN OLD TENNIS SHOE (2) 
11.0000 /EL 

12.0000 A FIRE TRUCK (3) 
13.0000 /EL 

14.0000 A FEATHER (4) 
15.0000 /EL 

16.0000 AN ELEPHANT (5) 
17.0000 // END 

1 3 . 0000 eWR I TE TEXT. SAMPLE ' : 1 -60 : 
TEXT. SAMPLE IS IN THE CATALOG 
OVERWRITE ^' (Y,N) Y 
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18.0000 aHALT 

NOTE: If the text file has never been written to the di5c» the 
overwrite message followins the "SWRITE" command will not be pre- 
sented. When the computer returns a sl4sh ("/"> after the "(SHALT" 
commands the ISMS-UD programs can be executed. 
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/DO MAKEIT. (TEXT. SAMPLE) 

•/. P500 VER# 001 OF ISMS LOADED AT LOCATION 000000. 
FORTRAN IV PROGRAM MAKEIT STARTED 04/10/79 



PERMFILE HAS BEEN CREATED FOR FULL TEXT QUERIES 
SHOW(Y/N) ? 



SHOW ALL ELEMENTS (Y/N) ? 
Y 

DOES 

A BREATH OF AIR ( 1 ) 

WEIGH MORE THAN 

AN OLD TENNIS SHOE (2) 

IN MOST CASES ? 

DOES 

A FIRE TRUCK (3) 
WEIGH MORE THAN 
A FEATHER (4) 
IN MOST CASES ? 
DOES 

AN ELEPHANT (5) 

WEIGH MORE THAN 

A BREATH OF AIR (1) 

I N MOST CASES ? 

DOES 

AN OLD TENNIS SHOE (2) 

WEIGH MORE THAN 

A FIRE TRUCK (S) 

IN MOST CASES ? 

DOES 

A FEATHER (4) 

WEIGH MORE THAN 

AN ELEPHANT (5) 

IN MOST CASES ^ 

♦* FORTRAN CALL EXIT 
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NOTE. If an odd number of elements exists in the text file? as in 
the preceedins example? MAKEIT will show each element twice so as to 
display -Queries until the end of file occurs after a complete <iuery 
is presented. 
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ISMS;rUD_SAMBLE_BUiil 



/DO I SMS~UD. (MODEL. SAMPLE, TEXT. SAMPLE) 

7. P500 VER# 002 OF ISMS-UD LOADED AT LOCATION 000000. 
FORTRAN IV PROGRAM ISMSUD STARTED 04/10/79 



NEW SYSTEM ? (Y/N) 
♦Y 



/ 



TYPE ISMS-UD CMD ? (OR "HELP") 
*HELP 



ISMS - U^i' COMMANDS 

EMBED I NO 

BO - TRANSITIVE BORDERING METHOD 
BOQ - TRANSITIVE BORDERING WITH SELECTABLE QUERIES 



DISPLAYING ^ 

DI - DISPLAY MINIMUM EDGE DIGRAPH 
IN A LEVELS FORMAT 

DIS - DISPLAY MINIMUM EDGE DIGRAPH 
IN A STAGES FORMAT 

SUBSTANTIVE AMENDING 

ADD - ADD ELEMENTS 

ELIM - ELIMINATE ELEMENTS 

AE - ADD EDGES (RELATIONSHIPS) 

ON THE MINIMUM EDGE DIGRAPH . 
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EE - ERASE EDGES (RELATIONSHIPS) 
ON THE MINIMUM EDGE DIGRAPH 



FORMAT AMENDING 



■V 



PO - POOL ELEMENTS 



EC - ELEMENTARY CONTRACTION 



TERMIN^^TION 



TE - TERMINATE ISMS-UD PROGRAM 



♦**NOTE*** 



HELP - REPRINTS ABOVE LIST 



TYPE ISMS-UD CMD ? (OR "HELP") 
#B0 



FULL TEXT QUERIES DESIRED ? (Y/N) 
*Y 

SUBORDINATION RELATION ? (Y/N) 
*N 



TYPE NEXT EXEMENT NUMBER OR 0 FOR BREAK ? 
♦ 1 



TYPE NEXT ELEMENT NUMBER ORG FOR BREAK ? 
♦2 

DOES 

A BREATH OF AIR ( 1 ) 

WEIGH MORE THAN 

AN OLD TENNIS SHOE (2) 

IN MOST CASES ? 

♦N N 
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DOES 

AN OLD TENNIS SHOE 
WE I uH MORE THAN 



(2) 
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A BREATH OF AIR (1) 
IN MOST CASES ? 
#Y Y 



TYPE NEXT ELEMENT NUMBER OR 0 FOR BREAK ? 
♦0 



TYPE ISMS-UD CMD ? (OR "HELP") 
*DI 



LEVEL NO. 1 



LEVEL NO. 



TYPE ISMS-UD CMD ? (OR "HELP") 
*BOQ 

TYPE NEXT ELEMENT NUMBER OR 0 FOR BREAK ? 
♦3 

UHICH ELEMENTS TO BE COMPARED ? (TYPE 0 FOR AUTOMATIC) 
♦ 2 

D(SES 

A FIRE TRUCK (3) 

UEIGH MORE THAN 

AN OLD TENNIS SHOE (2) 

IN MOST CASES ? 

»Y Y 

WHICH ELEMENTS TO BE COMPARED ? (TYPE 0 FOR AUTOMATIC) 
«3i 1 

SORRY, THIS QUESTION HAS BEEN EITHER ASKED ALREADY OR FILLED 
BY INFERENCE 3 R 1 * YES 

WHICH ELEMENTS TO BE COMPARED ? (TYPE.O FOR AUTOMATIC) 
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♦0 

0 ACKNOWLEDOED, BEGINNING AUTOMATIC QUERIES 
DOES 

AN OLD TENNIS SHOE <2) 
WEIGH MORE THAN 
A FIRE TRUCK (3) 
IN MOST CASES ? 
♦N N 



TYPE NEXT ELEMENT NUMBER OR 0 FOR BREAK ? 
*0 



TYPE ISMS~UD CMD ? (OR "HELP") 
♦DI 



LEVEL NO. 



ERIC 



LEVEL NO. 



LEVEL NO. 3 



3 => 2, 



TYPE ISMS-UD CMD (OR "HELP") 
»ADD 



TYPE ELEMENTS TO BE ADDED ? 
♦0 



2'' 
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TYPE ISMS-UD CMD ? (OR "HELP") 



LEVEL NO. 1 



1 
4 

5 



LEVEL NO. 



2 »> 1» 



LEVEL NO. 



3 --:> 



TYPE ISMS-UD CMD ? (PR "HELP") 
*AE 



TYPE <A REACHFS TO B:> 
#4, 1 

♦ 5,3 

♦ '-i -. 5 
* 0 



TYPE ISMS-UD CMD ? (OR "HELP") 
♦ DI 



CYCLE ON 



LEVEL NO. 1 



' 0 
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LEVEL NO. 



ERIC 



1 . 

4 => 1, 



LEVEL NO. 



3 => 



2» 



TYPE ISMS-UD CMD ? (OR "HELP") 
♦EE 



TYPE <A REACHES TO B> TO BE ERASED 
#4, 1 

*3»5 ' 



»»«£RROR»»V 3 AND 5 ARE IN A CYCLE. 
"ELIM" 3 AND RE-ENTER USING THE "BO" COMMAND 



TYPE ISMS-UD CMD ? (OR "HELP") 
*DI 



CYCLE ON 3» 15, 



LEVEL NO. 1 



1 
4 



LEVEL NO. 2 



LEVEL NO. 3 



2,^ . 
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TYPE ISMS-UD CMD ? (OR "HELP") 

TYPE TWO ELEMENTS TO BE POOLED ? 
#3. 5 

NEW INDEX NUMBER ? 
♦6 
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TYPE TWO ELEMENTS TO BE POOLED ? 
*0,0 



TYPE ISMS-UD CMD ? (OR "HELP") 
*DI 



LEVEL NO. 1 



1 
4 



LEVEL NO. 



LEVEL NO. 3 



6 => 2 



1 



TYPE ISMS-UD CMD ? (OR "HELP") 
*EC 

TYPE TWO ELEMENTS TO BE CONTRACTED ? 
»2» 1 

• NEW INDEX NUMBER ^ 
*7 
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TYPE TUO ELEMENTS TO BE CONTRACTED ? 
*0. 0 



TYPE ISMS-UD CMD ? (OR "HELP") 
»DI 



LEVEL NO. 1 



7 
4 



LEVEL NO. 2 



6 => 7, 



TYPE ISMS-UD CMD ? (OR "HELP") 
*ELIM 



TYPE ELEMENT NUMBERS TO BE ERASED ? 

*4 

♦6 
#0 



TYPl. ISMS-UD CMD ? (OR "HELP") 
#DI 



LEVEL NO. 1 



TYPE ISMS-UD CMD ? (OR "HELP") 
»TE 

♦♦FORTRAN ♦♦ STOP 



NOTE: Whenever a 0 (zero) is to be entered to discontinue an ISMS-UD 
coffifTian-j » * "CTRL C" can be tYPed instead of the zero to save time? 
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the computer recoanizes this in^ut «s a zero. This *l50 holds true 
for the MAKEIT (when shouiin* which elements) and CYCLE pro9r*ms. 

The above sample run is a ^me::u: simplified-example of how each ISMS-UD 
command affects the ISM. Durin» an actual ISM session* a digraph 
would not usually be printed until the session is completed. The 
commands can be used in anv losical order. 
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/DO CYCLE, (WEIGHT. SAMPLE, TEXT. SAMPLE) 
•/. P500 VER# 001 OF ISMS LOADED AT LOCATION 000000, 
FORTRAN IV PROGRAM CYCLE STARTED 04/17/79 



FULL TEXT QUERIES DESIRED ? (Y/N) 

♦Y 

NEW SYSTEM ? (Y/N) 

♦Y 

NUMBER OF ELEMENTS (50 MAX.) ? 

♦4 

REGULAR INDEXING OF ELEMENTS DESIRED ? (Y/N) 

♦Y 



TYPE CYCLE COMMAND (OR "HELP") 
♦HELP 



«##HELP MESSAGE*** 

AL - ADD AN ELEMENT TO SYSTEM 

DL ~ DELETE AN ELEMENT FROM SYSTEM 

FI - FILL SYSTEM (ASSIGN WEIGHTS) 
CH - CHANGE WEIGHT OF A RELATIONSHIP 
RE - RESOLVE SYSTEM 
PR - PRINT SYSTEM OUT 
TE - TERMINATE SESSION 
HELP - REPRINTS ABOVE LIST 



TYPE CYCLE COMMAND (OR "HELP") 
♦AL 

ELEMENT NUMBER TO BE ADDED ? 

♦ 5 

BORDER ON THIS ELEMENT ? (Y/N) 

♦Y 

A BREATH OF AIR (1) 
HAS BEEN RELATED TO 
AN ELEPHANT (5) 
WEIGHT ? 

♦ :> 



21. 
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AN OLD TENNIS SHOE (2) 

HAS BEEN RELATED TO 
AN ELEPHANT (5) 
WEIGHT ? 
♦8 

A FIRE TRUCK (3) 

HAS BEEN RELATED TO 
AN ELEPHANT (5) 
WEIGHT ? 
*7 

A FEATHER (4) 

HAS BEEN RELATED TO 
AN ELEPHANT (») - 
WEIGHT ? 
*8 

AN ELEPHANT (5) 

HAS BEEN RELATED TO 
A BREATH OF AIR < 1 ) 
WEIGHT ? 
♦4 

AN ELEPHANT (5) 

HAS BEEN RELATED TO 
AN OLD TENNIS SHOE (2) 
WEIGHT ? 
♦5 

AN ELEPHANT (5) 

HAS dEEN RELATED TO 
A FIRE TRUCK (3) 
WEIGHT ? 
»6 

AN ELEPHANT (5) 

HAS BEEN RELATED TO 
A FEATHER (4) 
WEIGHT ? 
♦ 2 

ELEMENT NUMBER TO BE ADDED ? 

#0 



TYPE CYCLE COMMAND (OR "HELP") 
#PR 



1=> 


2(0) , 


3(0) , 


4(0) , 


5(9), 


a! ~ 


1(0), 


3(0) , 


4(0) , 


5(3), 




1(0), 


2(0), 


4(0), 


5(7) , 




1(0), 


2(0), 


3(0) , 


5(8) , 


5=:^ 


1(4), 


2(5) , 


3(6), 


4(2) , 
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TYPE CYCLE COMMAND (OR "HELP") 
♦DL 

ELEMENT NUMBER TO BE ERASED ? 

♦5 

♦0 



TYPE CYCLE COMMAND (OR "HELP") 
♦PR 





2(0) , 


3(0), 


4(0), 


2=> 


1(0), 


3(0), 


4(0) , 


3=> 


1(0), 


2(0), 


4(0) , 


4=> 


1(0), 


2(0), 


3<0) , 



TYPE CYCLE COMMAND (OR "HELP") 
♦FI 

A BREATH OF AIR ( 1 ) 
HAS BEEN RELATED TO 
AN OLD TENNIS SHOE (2) 
WEIGHT ? 
♦7 

A BREATH OF AIR ( 1 ) 
HAS BEEN RELATED TO 
A FIRE TRUCK (3) 
WEIGHT ? 
♦3 

A BREATH OF AIR ( 1 ) 
HAS BEEN RELATED TO 

A FEATHER (4) 
WEIGHT ? 

AN OLD TENNIS SHOE (2) 

HAS BEEN RELATED TO 
A BREATH OF AIR (1) 
WEIGHT ^ 
■*7 

AN OLD TENNIS SHOE (2) 

HAS BEEN RELATED TO 
A FIRE TRUCK (3) 
WEIGHT ? 
♦6 

AN OLD TENNIS SHOE (2) 

HAS BEEN RELATED TO 
A FEATHER (4) 
WEIGHT ? 
♦ 7 

A FIRE TRUCK (3) 
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HAS BEEN RELATED TO 
A BREATH OF AIR (1) 
WEIGHT ? 
♦0 

A FIRE TRUCK (3) 

HAS BEEN RELATED TO 
AN OLD TENNIS. SHOE (2) 
UEIGHT ? 
#9 

A FIRE TRUCK (3) 

HAS BEEN RELATED TO 
A FEATHER (4) 
WEIGHT ? 
♦7 

A FEATHER (4) 

HAS BEEN RELATED TO 
A BREATH OF AIR ( 1 ) 
WEIGHT ? 
♦9 

A FEATHER (4) 

HAS BEEN RELATED TO 
AN OLD TENNIS SHOE (2) 
WEIGHT ? 
♦6 

A FEATHER (4) 

HAS BEEN RELATED TO 
A FIRE TRUCK (3) 
WEIGHT ? 
♦8 



TYPi: CYCLE COMMAND (OR "HELP") 
♦PR 



1=> 


2(7) , 


3(8), 


4(9) , 


2=> 


1 ("7 ) > 


3(6), 


4(7) , 


3=> 


1(0), 


2(9), 


4(7) , 


4=> 


1(9), 


2(6), 


3(8) , 



TYPE CYCLE COMMAND (OR "HELP") 
♦CH 

ENTER A REACHES TO B, WEIGHT (3 NUMBERS) 
»3, 1 , '3 
#0,0,0 



TYPE CYCLE COMMAND (OR "HELP") 
»PR 



ISMS-UD Version 2.0 



JulY, 1979 



University of Davton 



1«> 


2(7), 


3(8), 


4(9) , 




1(7), 


3(6), 


4(7) , 


3=> 


1(8), 


2(9), 


4(7) , 


4=> 


1(9), 


2(6) , 


3(8) , 



TYPE CYCLE COMMAND (OR "HELP") 
♦RE 



♦♦♦CYCLE RESOLVED*** 
THRESHOLD==> 7 







THRESHOLD 


MATRIX 


1=> 


2(7) , 


3(8), 


4(9) , 


2=> 


1(7), 


4(7), 




3=> 


1(8), 


2(9), 


4(7) , 


4=> 


1(9), 


3(8), 





NUMBER 


#LINKS 


ELEMENTS 


PATH 








1 




2* 


1 


2 


1 


2 




2 


2 


3. 


1 


3 


1 


3 




3 


3 


3, 


2 


3 


2 


1 


3 


4 


2 


4, 


1 


4 


1 


4 




5 


3 


4, 


2 


4 


1 


2 


4 


6 


2 


4, 


3 


4 


3 


4 





TYPE CYCLE COMMAND (OR ''HELP") 
*TE 

♦* FORTRAN CALL EXIT 



NOTE: As in the ISMS-UD prosramt a '*CTRL C" can be used instead of ^ 
zeros when terminating a CYCLE command* 



Also as ujith ISMS-UDi the above example is a yec:^ simplified run of 
the CYCLE program. The user may wish to resolve the matrix several 
times during the session to obtain the threshold of resolution 
desired. The commands mav also be executed in any logical order as 
uiith the loMS-UD commands. 



52 



ERIC 



ISMS-UD Version 2.0 
niversitY of Davton 



n 



Prefac* 2 

Introduction ^ 

UD time sharins computer SYStem ^ 

System Hardware 4 

System Software ^ 

Univac File Editor (FDT) 4 

Procedures and Important System Concepts 5 

Schedulins the Use of th> UD Computer 5 

Automatic LOGOFF Feature • • ^' 

Special Control Keys 5 

End of Transmission Key • 

Error Correctin9 Keys ^ 

Parity and Duplex Settings for Dial-up Operation 6 

PERTINENT Telephone Numbers ^ 

Houi to LOGON 7 

Procedure for LOGsins ON a Hardwired Terminal ..... 7 

Procedure for LOGsina ON an Acoustically Coupled Terminal , , , , i 7 

LOGON Problems ^ 

ISMS-UD Full Text Query Facility ^9 

Format of the Input Se«^uential Element Text File 10 

Full Text Queries Checklist 12 

Text Displayinsi Hints ^2 

CI ear ins the Screen of a CRT 12 

Spacing between Framing Clauses 12 

Interpretive Structural Modeling Software Package 14" 

Program MAKE IT 1-' 

Purpose of MAKEIT 15 

How To Use MAKEIT 

Program ISMS-UD IS 

Purpose of ISMS-UD *' -18 

How To Use ISMS-UD • If 

ISMS-UD Commands .......... 20 

BO Command 

BOQ Command .23 

DI Command • 24 

DIS Command •" 24 




I'5MS-U0 Vc*rfion 2.0 
Univofrsxtv of Darton ( , Ju1y» 1979 

ADD Command , ^ * « . • . 24 

ELIM C»>mmand • • 24 

AE Command 25 

EE Command . • . , ,^ 2S 

PO Command . ^ . 26 

EC Command y • • . . . . 27 

TE Command , 27 

ISMS-UD Restarts . ' 28 

Program CYCLE « 09 

Purpose of CYCLE '.'.'.!'.!!.!'.!!! 2'=> 

Houi To M.,^ CYCLE 29 

CYCL-' C grands . . . ^ 00 

AL •i-^'tund i . ./ 32 

CH Command 33 

DL Command 33 

FI Command o*^ 

FI Command Restarting .34 

PR Command • 34 

RE Command „ 34 

TE Command ' 34 

Appendix A: Sample Runs , 35 

Make it Sample Run ^ 36 

Isms-ud Sample Run .38 

•Cvcle Sample Run ...» 47 



2i, 



Attachment No. 3 
DELTA CHARTS FOR ISMS 



'i 



Prepared by: 



David R, Yingling, 3r, 



User DELTA Charts 



This attachment consists of DELTA charts that describe the user and machine 
decision interactions that occur while operating ISMS. These DELTA charts are provided 
for both the programmer and the user in order to facilitate the installation and the use of 
ISMS. At first glance, you' might notice that the DELTA charts look like programming 
flow charts. However, these charts do not document program flow. Instead, they 
document the actions of both the user and computer at a typical ISM computer session, 
therefore, the DELTA charts should be used only for instructional and system overview 
purposes. 

How to Read the DELTA Charts 

The charts depict the flow of activities at .a typical ISM computer session. They 
convey a great deal of information in a highly structured format and a relatively small 
amount of^ space. This information includes activities, decisions, time flow, logic 
connections, and who is responsible for each activity or decision. 

Several symbols appear on the charts; these are explained and illustrated in the next 
few para>];raphs.* Activity boxes are the most common symbol used on the charts. An 
activity box is divided into two parts; the lower part shows an activity and the top part 
shows who is responsible for carrying out the activity. In ISM, either the user or the 
computer is responsibK* for each activity. 



USER/COMPUTER 



A\ctivi\y 



*This material is adapted from Warfiold (1976, pp. ^21-^'^5). 
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A decision box is similar to an activity box, but it only has one part. By answering 
the qiiestion shown on the decision box, the user chooses among several alternatives paths 
leading from the decision box to subsequent boxes. 



Question 

The OR box is interpreted as an "exclusive OR," One and only one of the preceding 
activities or decisions can occur at a given time . The lines that join the various boxes 
represent only the flow of time, except at the output of a decision box where lines als6 
represent the various decisions that could be made. In that case, the lines are labeled; 
usually with, either YES or NO. 



OR 

► 
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ISMS^US FULL TEXT QUERY FACILITY USE 



USER 




InltlaCti hoic 
•ytt«tt fnt tdltor 



Oft 

COMPUTER 



Pronpta for a uaer 

Input 



USER 

Typca an cltmcnt 
text or editor 
comand 



COMPUTER 



Acccpca text Una 



OR 



COMPUTER 



Procaatca editor 
coBMnd 



VIS 



HALT coonand? 



NO 



COMPUTER 



ProMpta for 

COMMnd 



USER 



inltlatta HAXEIT 
prograa 







CONf 


UTER 


Loada proKrom and 
banlna aiccutlon 




.COHrUTEH 

lUada in CaxC 

record from adlcor 
crtacad fiU 



YES 



Syntax arrora? 





NO 




Uricaa qu 


ary flla 



cowu 




DLapIaya 


alamanta 



COMP 


UTCR 


Aaka if u 
CO diapla 
alcMnCa 


iar wanca 

y any 



USER 



DacLdaa yaa or no 



0« 



USE 


R 


Dacldad n 
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USING PROGRAM ISMS-UD 



.OMPLTER 



p«rMinent (Lie 



USES 



Inlti*e«f I$MS-UD 
pro|rt» 



COMPUTER 



Loads Pro|ra» and 
b«|lns sxncutlon 



compi/ter 



Inquif«t tf to 
InltUlUs ISM 



USER 



R«ipondt with y«t 
or no 



NO 



InUUlUfl? 



VES 



OR 



COKPUTER 



R^qucitt « cowund 
1 



0 



25u 

3 



USI 


IK 


IUqu«tti 

opt rat toi 


a MtrU 

1 



COHfU- 


rER 


PerfonRi 
and dlapl 
rcauUa 


:>p«ritlon 
■ya 







USI 


R 


Dccldaa on 


conaand 




C 







USER 


Rcquaata 


HELP 






COMPUTER 


Prcacnta 

valid COM 
their Ma 


a Hat of 
Mnda and 

nln| 



US 


ER 


Tarmlnat 
proiraa 


•a ISHS-UD 



OR 



0 



25. 
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BO COMMAND 



lU^uttta Bordarlng 
op«rtt Ion 







COM?l 


'TER 


Inqultat it iull 
disL rtd 








1% 


D«cLdei end cypaa 
vta or no 






Kull ten 
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t querLea 



YES 
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any bordarlng 
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NO 



Y£S 



NO 



COMPUTER 



Raada in fratilng 
clauaea fron 
query flic 



OR 



i OHPl'irR 



Inquires It rtla- 
tlrjniMp being 
sodcle'i la 









FR 


Uav Idra 
y«a ir n 


and typ^a 

o 



OR 



■Jo 



C0KPU1 




Typ«i ir 


ror 



USE 


\ 


Typtd an 
nuabtr a 

ISM 


tltoMnc 
Irtady In 



COMfi 


11% 


T*p«t tri 


or 



COKPl'TER 



Chtcka to ata If 
taut record cxlata 
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NO 



Taic racord axtaca 
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USER 
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Full caxc quarlci 
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YES 



NO 



OR 



COKPUTtl 



FonM Infaranca 
opportunity Mitrlx 
(I#) 



USER 



Typad a **t'* 



T 



2d 



6 



cow 




R«4ld qu«l 
from qj4ii 


ttlon t«xt 
flli 



COW 


»UTER 
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query ^nc 


ull text 
1 request 



COUP 


UTEK 


Caicuiati 
quaic ion 


bate 
CO aak 






Full caxt quirlei 
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NO 


CUfl 


UTER 


Praaanc i 

query an< 
reiponaa 


ysbollc 
requaat 



OP 



USER 


Dec Ida on 


r«aponaa 
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« 



us 




Typai an 





COHFUTER 



Urltta tSM Mtrlx 
onto panuinant flla 



US 









COMPUTER 


•nd pUca 
MtrlN 


Infaranca 

in ISM 






COHfl 


ITER 


Zaro rova 
coluana o 
In atap al 


and 

I It uaad 
)ova 






^ Z# all 


iaro«aT 



US 


BR 


Typ^a 

(abort) 


J" 



NO 



0 



0 



2:1 



ERIC 



BOQ COMMAND 



Mm 



opt fat Ion 



COKPL 


TER 


Inqvtlrii it full 
text quirtei in 
d«ilrid 






USEK 


D«cld«t 4nd typcft 

v?« or no 







Flrit call CO 
any bordarlni 
tubroutlnai? 



NO 



F.iLI ttxt qutrles 



YES 



NO 



COMPUTER 



Riida In (ratting 
cliuiii froa 

quai'y flla 



OR 



COMPUTER 



Inqulrti If rcLa- 
C lonshlp being 
Modeled !■ Mub- 
ordinaLe 



US1 


[R 


D«c ld«« 
yti or n( 


ind type* 



UR 
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COtffL'TCR 



Typtt trror 



C0KP1 


JTtH 


Typ«i All 


trror 



USEM 



Typtd tn «l«Mnt 
•irttdy In ISH 



COHPUTM 



Ch«ck« CO it 
taxC rtcord •xitCa 
for utar •ptcLfitd 



COHFUTO 


A«kc for 


n«KC 


•l«««nc nuabtr Co 


bordsr 








USER 


Typ«« an ultMnc 


nunbcr 





OR 



USEM 



Typtt • valid 
• ItMnC Qusbtt 



Full Ctxc quarit* 
•tltctadT 



NQ 



NO 



TtsC r«cofd «xi«Ct 
for utar apscified 
tUnanCT 



YES 



OR 



COMfUm 



forM infaranca 
apj^rtualc^ Mcrix 
(I#) 



USI 




Typ«d 1^ ♦ 
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10 



OR 



COM? 


ITER 


Types arr 


or 



USER 



Re-^Liastaj a 
queit ion already 
answered [ Lnferratj ) 



COKP 


I'TER 


Re«d 


quei 


tlon text 
y flic 



preaanc full tei 
«r.d requeat 
r eiponse 



cor 


tPlTER 




AsKa uaar 

quaatlon 


which 
to praaanc 






USER 


Daclda 
quaaci 


and 

L^n dai 


lirad 



OR 



US 


tR 


Rcquta 
unanaw 
quaatli 


tad an 

artd 



OR 



Full text 
aelecr «d ^ 


queriee 




NO 


COH? 


UTER 


Preaenc a 
query and 
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y«Dollc 
requeet 



US 


£R 


Requceted 
quer laa 


•utonatic 



COMPUTER 



Calculate beet 
queet ion 
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US! 


:r 


Typei 4 


in "N" 



COMPUTER 







Ml 


it 


Dtcldt on * 



1 



us 




TypcH « 





% COKPUTEX 



CaUuUtt Inftr*- 
«nct ami pUca In 
tSH MCrlx 



Wrlttt ISH Mtrix 
onto ptrmantnt 
flit 



YES 



coHPin 




Zero TO^M tnd 
coluana of t# u^d 
In ottp «bovt ''^ 








'X«rot«7 




NO 



us 




Typ«t "Ai 
(tbort) 
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Dl COMMAND 



USER 



Raquaata • lavala 

forwit <ll|r«ph to 
ba prlntad 



COW 


LTKH 


Calculatak hier- 
archical raach- 
ability Mtrix in 
« lavttU forMt 







COMPUTER 



Calculataa acandard 
forB MCrlx 



COKPUTER 



Caiculacaa condcn- 
aat lott nitrix arKl 
prlnta cycle atta 
li—i ■ ■ 



COMPUTER 



CaUuiataa akalaton 
Mt r Ix 







COMP 


UTER 


Prlnta aach alaiMnt 
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for each laval 
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USltt 
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ba prlntad 
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Calculttaa hlar- 

archlcal raach- 
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COKPt 
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for* MCrlx 






COKPU 


TO 
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aacion MCrlx and 
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COMrUTKt 
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f 


COKFUTEt 
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al««*t>t 
. cofmactl 
aach ata 
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vaa for 

• 
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AE COMMAND 



El 



COMPUTEH 



Typ«i error 



USKR 
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USER 
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OR 
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Both ttliMnti In 
ISM MCrU? 
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£R 


Typii i "0" 
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EE COMMAND 
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COMfUTER 
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This attachment contains the listing of the FORTRAN IV programs 
entitled Interpretive Structural Modeling Software (ISMS). Tapes 
containing the listing of these programs can be obtained for a service 
fee by writing: 



Director 

The Office of Computing Activities 
University of Dayton 
Dayton, Ohio ^5^69 



Attarhmont - 1 



i c 

<• C • NUTICE ♦ 

^ C • ♦ 

Hi • AU RIGHTS RESERVED, NO PA»IT OF THIS PROGRAM MAY BE SOLD/ ♦ 

7 C ♦ R£P«nOUCEO/ STORED IN A RETRIEVAL SYSTEM, oR TRANSMITTED # 

B C •IN ANY FORM UR BY ANY M£ANS# ELECTRONIC* MECHANICAL/ ♦ 

9 C ♦ PmjT::)C3PY iNC, RECOROlNCi. OR OTHERWISE. WITHOUT THE ♦ 

10 C • PRIOR PERMISSION Of THE ♦ 

11 C • UNIVERSITY OF OAYTOM RESEARCH INSTITUTE. ♦ 
U C « ♦ 

u c 

15 C I S M S - U D 

16 C INTERPRETIVE STRUCTURAL MOOElINC SOFTWARE - UNIVERSITY OF DAYTON ' 

17 C- 

19 C WRITTEN BY: DAVID R. YINGLINC/ JR 

19 C ENGINEERING AND PUBLIC POLICY GROUP 

20 L UNIVERSITY OF DAYTON 

21 C DAYTON/ OHIO ^5^69 

22 C 

23 C VARIABLE NAME DESCRIPTION 

2^ C 

25 C N THE NUMBER OF ELEMENTS IN THE 

26 C REACHABILITY MATRIX "RM**. 

27 C 

28 C RM THE CURRENT REACHABILITY MATRIX 

2^ C 

30 C INDEX THE INDEX SET OF •'RM*'. 

31 C 

32 C NUMS A VECTOR USED TO COMMUNICATE WITH 

33 C SUBROUTINE GETNUM 
3<i C 

3*5 C OTYPE LOGICAL VARIABLE WHICH WHEN .FALSEt/ 

36 C DENOTES FULL TEXT QUERIES/ WHEN 

37 C eTRUE,/ DENOTES SYMBOLIC QUERIES. 

39 C 

39 C SUBREL LOGICAL VARIABLE WHICH WHEN •TRUE./ 

<»0 C DENOTES AN OPTIMIZATION OF THE 

C TRANSITIVE BORDERING PROCESS IS TO 

^2 C BE DONE/ WHEN .FALSE./ THE 

43 C OPTMIZATION IS NOT ABLE TO BE DONE. 

C 

<i5 L TTYIN FORTRAN READ UNIT NUMBER FOR TELETYPE 
46 C 

kl C TTYQUT * FORTRAN WRITE UNIT NUMBER FoR TELETYPE 
49 C 

49 C 

50 C TXTWOS THE NUMBER UF MACHINE WORDS REQUIRED 

51 C TO HOLD ONE OF THE « PHRASES OF FULL 

52 C TEXT QUERIES 

53 C 

•'^ C SYS DIMENSION SIZES OF SYSTEM MATRICES. IT 

5^ C IS THE THE MAXIMUM NUMBER OF ELEMENTS 

56 L THAT CAN BE HANDELED BY THE PROGRAM. 

C THIS VALUE I'S SET BY THE PROGRAMMER 

59 C DEPENDING ON THE AMOUNT (IF MEMORY 
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91 : AVAILABLE. 

6:) I 1 

61 I •♦•♦COMMON BLOCK /F>EXT/ 

tZ C 

63 C COMMUN BLOCK /FTEXT/ IS USED WHEN FULL TEXT QUERIES 

6<i C ARE SEUCTeD BY THE USER. IT CONSISTS OF 5 VECTORS 

65 C DIMENSlQNEn BY "TxTWUS". THE MAIN PROGRAM IS RESPONSIBLE 

66 C ruH PEAniNC IN THE "FRAMING** CLAUSES INTO THE BLOCK IN 

67 C THE POSITIONS Rl, K?, , AND R3t 

68 C 

69 IMPLICIT lNTECfcR^2 (A-Z) 

70 LHOfCAL QTyPE, 5UBREL/ FfRST/ QST 
n LUGlCAL^l RH< i28/l2B) 

7^ DIMENSION IN0EX<l2e) j 

7) INTfGER BO,Ol/ELIMM/HE/TE/YUP,OIS#AE/EC/ADb/PO/EC/ANSWEK^RUR2/R3 

7<. INTEGER LUL2/UNUSEO/IOQ*N/ INDEX 

75 DATA B0/2HB0// DI/2HD1/, HE/^HHELP// TE/2HTE// YUP/IHY/ . 

76 DATA 0IS/3H0IS// AE/2HAE// EE/2HEE// ELI MM-f ^HE L 1 M// AD0/3HAOD/ 

77 DATA P0/2HP0// EC/2HEC// BOQ/3HB0Q/ 
7B C 

79 COMMON /FTEXT/ Rl(l60)/ H(160)/ R2(160)/ 12(160)/ R3(160) 
flO c 

81 C THE BLANK COMMON IS FOR THE U,0. SYSTEM ONLY,,,, 

•B2 C THE FORTRAN RUN TIME SUBROUTINES REQUIRE THE ASSOCIATED 

fl? C VARIABLE OF THE DEFINE FRE STATEMEf^T IN BLANK COMMON 
8<» C 

85 COMMON UNUSED UDVERZ 

86 SYS - 128 
8? NCHAR ■ 

8B TXTWOS ■ l60 

89 TTYOUT - 2 

90 TT^IN • I 

91 QTYPE - .TRUE* 

92 SUBPEL » -FALSE. 

93 FIRST - .TRUE. 
9<» QST - , FALSE. 

95 C 

96 C NEW SYSTEM T 

97 C 

98 WRITE ( TTYOUT/ lOl) 

99 READ (TTYIN/ 200) ANSWER 

100 IF(ANSWER ,EQ, YUP) GOTO 3 

101 C 

102 C SYSTEM MARTIX RESIDES ON A PERMFILE/ READ IT IN 

103 C 

lOd CALL IO(N/RM/ INDEX/ 10/ .TRUE ./SYS) 

105 GOTO 3 

106 C 

107 C UPDATE PERMFlLE EVERY TIME IN CASE OF TIME 
lOfl C SHARING SYSTEM FAILURE 

109 C 

no <» CALL IO{N>RM/ INDEX/ 10/ .?A15E*/SYS) 

in C 

112 C ASK THE USFR FOR A ISMSUD COMMAND 
1 13 C 

I I <» 1 WR I TE ( TTYOUT/ 103) 

Q IM RFAO (TTYIN^ 200) ANSWER 

ERIC ' 2S i 



1 1 r 




aw. 






b 


lis 


1^ ( ANSNf 




Dl) 


cnTo 


6 


in 


IF R 


• EO, 


DIS) 


euro 


9 


\2'J 


ir ( ANSx[R 


.EO, 


EL \nH) 


C!)TO 


7 


Hi 


1 F ( Ar^Swe H 


• EsJ. 


HE ) 


CJTO 


8 


UJ 




.EU. 


AE ) 


GOTO 


10 


12) 


IF UNSi<£R 




EE ) 


GOTO 


11 


U** 


If (ANSnFR 


• E^. 


ADO) 


GJTO 


12 




I F ( Ap^ShC R 


• E^. 


PO) 


GOTO 


I) 




I P I ANSWER 


• EW. 


EC ) 


GOTO 


\^ 




|F lANSWf R 


• EW. 


BDO) 


GDTO 


16 




IF (ANSWER 




TE) 


STOP 





HI 
133 
131 
132 
133 
13^ 
135 
1 Ifj 
137 
133 
13 ) 
l<»0 
IM 

l<»3 

l^f> 
.^7 
M8 

153 
151 
15.^ 
153 
15<. 
155 
I5b 
157 
158 
159 
163 
I6L 
162 
163 
16<» 
165 
16*1 
167 
168 
169 
170 
171 
17? 
171 
I7<i 



INVAL 10 COHiANO 

wRPei TTYQUT^ I0<i) ANSWEK 
GOTO 3 

♦ TRANSITIVE BQRO RINC ♦ 

5 IFI.NUT, FIRST) CDTQ 15 
F IRST « , FALSE. 

full text queries t 

write( ttyout^ 100) 

rfao (ttyin* 200) answer 

ifunswer .ne, yup) goto i 

full text queries desired 

define file 8 ( 999/ 1 60/ unuse 0 ) 

♦••♦nqte***** 

tme record sue for the above define filf statement should 
be eqjal to "txtwds''» ' 

FIND18»2) 

QTYPr . .FALSE, 

READ18'2) (RKD/IM/TXTWDS) 

PEAD(9»3) l«2( 1)/ l«l/TXTWDS) 

REA0(8U) (R3( I )/ I«l/TxtWDS) 

SUBORDINATION RELATION ? 

1 WRITE(TTY0UT/106) 

READ iTTYiNf 200) ANSWER 

IFIANSWFR .EQ» YUP) SUBREL » .TRUE. 

15 CHL BOROFRI^/RH/ INOEX/TTYIN/ T TYUUT / Q TYP E ^ SUB RE L / QS T/ TXTWOS / SYS ) 
QjT « .FALSE. I 

GUTf] 3 

^♦^♦♦^♦^♦♦♦♦♦♦^♦^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 

♦ DISPLAY DIGRAPH IN irVFlS ♦ 
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175 


C 


176 




ni 




\n 


C 


179 


c 


lao 


c 


181 


c 


18? 


c 


183 




1B<. 


c 


185 


c 


186 


c 


187 


c 


188 




189 




190 


c 


191 


c 


19^ 


c 


193 


c 


\9H 


c 


19^ 




196 




197 


c 


19a 


c 


199 


c 


200 


c 


201 


c 


202 




203 




20* 


c 


205 


c 


206 


c 


207 


c 


20S 


c 


209 




210 




211 


c 


212 


c 


211 


c 




c 


215 


c 


216 




217 




218 


c 


219 


c 


220 


c 


221 


c 


22? 


c 


223 




Z2H 




225 


c 


226 


c 


227 


r 


22S 




229 


c 


23D 




231 




232 


c 



6 CALL DICLEV(N,RM/ INDEX>TTYDUT>SYS) 

GOTO 3 

♦ DISPLAY DIGRAPH IN STAGES ♦ 

9 CALL OICSTG(N/RM/ INOEX/TTYOUT^SYS) 

RE-REAO N/RH/ AND INDEX BECAUSE STAGES ROUTINE 
MAS USED THEH FQR CRATCH AREAS 

CALL IO(N/R^/ INOEX^lO/.TRUe./SYS) 

GOTO 3 

«f ######## 

♦ ADOANFOGE ♦ 

10 CALL ADEDC6(N,RM, IN0EX/TTYIN>TTY0UT,SY$) 
GOTO 4 

♦ ERASEANEDGE ♦ 

11 CALL bREDCE(N,RM/ INDEX^TTYIN/TTYOUT/SYS) 
GOTO 3 

♦ ELIMINATE AN ELEMENT ♦ 

7 CALL ERA5E(N/RM, INDEX/TTYIN>TTY0UT/SYS) 
GOTO * 

♦ ADOANELEMENT ♦ 

12 CALL AOOEHN/RM/INDEX/TTYIN/TTYOUT/SYJJ 

GOTO * 

♦ POOLELEMENTS ♦ 

13 CALL POaL(N>RM>lNDEX/TTYIN#TTYOUr,SYJi) 
GOTO <> 

♦ CONTRACT ELEMENTS ♦ 

l<i CALL ELCQNTIM/RM/ INDEX^TTYIN#TTY0UT/SYS) 

01) To 



2S . 



a I TE ( T TY JUTM0 5 ) 

orjTn 3 

FURMATS 

100 M}RMATi J<,H^FJLL Tex: QUERIES DESIRED I (Y/N)> 

101 ru«H/r(l9H SEW SYSTEM 7 (Y/NJ) 

105 F0RMATt3lH TYPE ISMS-UD CMD t (OR "HELP'')) 

10^ FORM&T( UH^###tRROR^^* #A<»,2TH <--lNVALlO ISHS-UQ C0MMAND/^5H IF 
♦IN OUUHT TYPE "HELP" FUR LIST QF COMMANDS) 

105 r0RMAT( lH-/lH-,5XO^Hl SMS - UD COMMAND S/lH*;^3X/ 
f BHEMBEOINC/IHO#4X/32HDO - TRANSITIVE BORDERING METHOD/ 

♦ ^♦XfJOHBOQ - TRANSITIVE BORDERING WITH SELECTABLE QUE R I E S / IH-/ 3X, 
♦lOH0ISPLAYtNC/lH0#^X,33H0I - DISPLAY MINIMUM EDGE OICRAPH/lOX/ 
M8HI^4 A LEVELS FORMAT / IHO/ 3X/ 34HD I S « DISPLAY MINIMUM EDGE DIGRAPH 
WIOX^IBHIN A STAGES FORMAT/ IH-/ 3X/ 20HSUBST ANT I VE AMENOlNC/lHO/ 3X^ 
♦18HA0O - ADO EIEMENTS/IHO/2X/23HELIM - ELIMINATE ELE MENTS/ IHO/ ^X/ 

♦ 30HAE - ADD EDGES ( RE L AT I ONSHi PS ) / lOX/ 27HON THE MINIMUM EDGE DIGRA 

♦ PH/lHO.<»X#32HEE - ERASE EDGES ( RE L AT IONSHI PS ) / 10 X W7H0N THE MINlMU 

♦ M EnCE 01CRAPh/IH-#3X#I5HFORMAT AMENDING/ IHO/ <iX, I BHPQ - POOL EUEME 

♦ MTS/lM0#^X,27H£C - ELEMENTARY CONTRAC T |0N/ IH- , 3X M IH T ERM I NAT I ON/ 

♦ IHO,<»X#30HTE - TERMINATE ISMS-UO PROGRAM/ IIH-***NOTE***/ IHO/ 2X/ 
♦26HHELP - REPRINTS ABOVE LIST) 

106 FORMAT(32H SUBORDINATION RELATION ? (Y/N) ) 
?00 r0RMAT(A<i) 

END 



SUBROUT INF BUR0ER(N/MAT, INDEX/ TTY IN/ TTYOUT/QTyI'E/ SUSREL/ QST, 
♦ TxTmD^SYS) 
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THIS SUBROUTINE WILL EMBED AN ELEMENT INTO ••MAT« 
UTILIZING THE TRANSITIVE BOROfRINC ALGORITHM DtVELOPEO 
BY DR. JOHN WARFIELD, 



y^RITTEN BYi 



VARIABLE NAME 



DAVID R» YINCLINC/ JR, 
ENGINEERING AND PUBt IC ^'OLICY GROUP 
UNIVERSITY OF DAYTON 
DAYTON/ OHIO ^5<»69 

DESCRIPTION 
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!0 C 




!l C 


MAT 


^2 C 




3 C 


INDEX 


s c 




!5 C 


TTYIN 


6 C 




!? C 


TTYOUT 


!8 C 




!9 C 


QTYPE 
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\z c 




n c 
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SUBREL 


n c 
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QST 
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b6 C 




n C 




k8 C 


TXTWOS 


^9 C 




JO c 




Jl c 




w c 


SYS 


53 C 








55 C 




^6 C 


FLAG 


57 C 




C 





THE NUMBER OF ELEMENTS IN "MAT", U?ON 
COMPLETION OF THIS SUBROUTINE/ 
"N" • "N" ♦ 1 . 

THE CURRENT REACHABILITY MATRIX MODEL 
INDEX SET OF "MAT" 

FORTRAN READ UNIT NUMBtR RDR TELETYPE 

FORTRAN WRITE UNIT NUMBER FOR TELETYPE 

THE QUERY TYPE SWITCH. IF OTYPE • 
.TRUE,/ SYMBOLIC QUERIES ARE USED, 
IF QTYPE • .FALSE./ FULL TEXT QUERIES 
ARE USED. 

THE SUBORDINATION RELATIONSHIP SWITCH, 
IF THE EMBEDDING RELATIONSHIP IS 
SUBORDINATE, AN O^TMIZATION CAN BE 
MADE THAT REDUCES THE NUMBER OF 
QUESTIONS REQUIRED TO EMBEDD 
ELEMENTS. IF .FALSE,,/ THIS 
OPTMIZATION IS NUr CHNE. 

LOGICAL VARIABLE IF WHEN .TRUE./ 
THE USER IS ABLE W SELECT HIS 
OWN QUESTIONS. WHEM .FALSE./ 
QUESTIONING IS AUl.lMATIC 



THE NUMBER OF WORDS REQUIRED TO 
HOLD ONE OF THE 5 PHRASES OF 
FULL TEXT QUERIES. 

DIMENSIOM SIZES SYSTEM MATRICES 



DENOTES ROWS/COLS 'IF "PHI" WHICH HAVE 
BEEN ZEROED OUT AS A RESULT OF THE 
SE«RCH/ZERO OUT PilUTIMES 
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PHI THE TRANS^ITIVE BU^UIRING INFEKENCE 

OPPORTUNITY MATRIX 

I SCRATCH VECTOR UStO ^ OR PHI ZERO OUT 

ROUTINE 

OIHPHI THE OIHENSION OF IMC CURRENT 

PHI MATRIX 

in LOCICAl SWITCH VARIAOLE 

♦•♦ANOTE*^** 

THE DIMENSION SIZES OF "PHI"^ ••Z''^ AND '•FLAG'* SHdULO BE 
SET EQUAL TO Z^'^SYS", 

IMPLICIT lNTECERt2 (A-Z) 

INTEGER NOPE /YUP/ABORT^ ANSWER/ R1/R2/K3/LIH 2/ RECORD/UNUSED^N 
INTEGER INDEX/ K 

LOGICAL QTYPE/ SUBREL/ FOUNDl/ F0UN02/ QST, QSTl 

LOGICAL^l FLAC(256)/ ZI256)/ PHn256/256)/ HAT ( SYS/ SYS ) / ZZZ 

DIMENSION INDEX(SYS)/ NUMS'(2t 

DATA NOPE/IHN// YUP/IHY// AB0RT/2HAB/ 

COMMON /FTeXT/ RIU60)/ LU160)/ R2(160)/ L2(lhO)/ R3(160) 
THIS BLANK COMMON IS FDR THE U^O. SYSTEM ONLY 

COMMON UNUSED UDVER2 

INITIALIZE EVERYTHING 

QSTl . QST 
i? JIMPHI « N ♦ 2 
QST • QSTl 

DO I IM^DIMPHI 
FLAGM) • •FALSE. 
Z(I) - .FALSE. 
DO I J«l/DIMPHI 
PHKI/J) • .FALSE. 

1 CONTINUE 

MAKE SURE SIZE OF ""SYS""* ELEMENTS IS NOT EXCFIOED 

IF (N ♦ 1 aE.' SYS) GOTO 2 
WRITE( TTYOUT/ 103) SYS 
GOTO 3 

ASK INTERACTIVE USER FOR NEW ELEMENT NUMBER 

2 WRITE(TTY0UT/100) 

CALL GeTNUM(NUMS/ I/TTYIN/TTYOUT * 
INDEX (N ♦ I) « NUMS( I ) 
IF ( 1NDEX(N ♦ I) .EO. 0) GOTO 3 
IF(N •EQ* 0) GOTO 35 
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in C CHECK ID SEE IF USER SPECIFIED AN ELIMENT ALRfcAuY 

Ue C IN THE SYSTEM MATRIX 

119 C 

120 CALL FIN0IT(M/1N0EX(N ♦ 1) / J/ I / J> I MOEX^F OUNOl , F (1UND2, SYS ) 

121 IF(FOUNDl) COTa 3 

122 35 IF(QTYPE) CUTO 6 

123 C 

I2<i C FULL TEXT QPlION ON. MAKE SURE THIS 

U5 C TEXT RECORD IS ON RANDOM TEXT FUE 

126 C 

127 RECORD * 1NDEX(N 

128 REAO(8'RECOR0,ERR-36) ( L I < 1 > / I ■ I / TxTWOS ) 

129 GOTO 6 

130 36 WRITE(TTY0UTMO2) IN0EX(N ♦ I)' ' 

131 GOTO 2 

132 C 

133 C ALL OK/ BEGIN XITIVE BORDERING 
13<» C I, FORM PHI MATRIX 

139 C 

136 C 

137 C A 0 

138 C 

139 C PHI • 

1*0 C , -T 

Ml C AA A A 

1*2 C 

1*3 6 CONTINUE 

M* IF(N .EO. 0) GOTO 33 

1*5 SYS2 • 2 ♦ SYS 

1*6 CALL TBPHI (N/MAT/PHI/0IMPH1/SUBREL/SYS2/SYS) 

1*7 C 

1*8 C WE NOW HAVE AN INFERENCE OPPORTUNITY MATRIX 

1*9 C 

150 C 2. DO MIN/MAX PROCEDURE TO FIND THE Z (ZPOINT) WITH 

151 C THE MOST INFERENCE. 

152 C 

153 7 CONTINUE 

15* IF(QST) GOTO 37 

155 CALL FINDZ(0IMPHI,PHI,ZP0INT,FLAG,SYS2) 

156 ■ *3 CONTINUE 

157 C 

158 C SINCE WE NOW HAVE THE Z (ZPOINTI WITH THE MAXIMUM INFERENCE 

159 C POTENTIAL/ ASK THE USER THE RELATION OF THIS ELEMENT WITH THE 

160 C ADDED ONE. 

161 C 

1^2 C IF ZPDINT is greater then H, A "Y" QUESTION IS TO BE ASKED 

16> C 

16* C IF ZPOINT IS LESS THAN OR EQUAL TO N/ AN "X" QUESTION 

165 C IS TO BE ASKED 

166 C 

167 RELATE • ZPOiNT 

168 IFIZPOINT .CT. N) GOTO B 

169 C 

170 C ASK THE "X" QUESTION AND CHECK 

171 C 

172 9 CALL QUEST( IN0EX(RELATE )/ INDEX(N ♦ I ) /TTYOUT, qTYPE/ TXTWOS ) 
^ 17) READ) TrYIN/200) ANSWER 

ERJC WRITEtTTYOUT/lOfc) ANSWER 2 ^/ 1 ^ 



n IF(ANS"ER .EW. ABORl) CUTD 31 

76 iriANSH^fi .nE. YUP .and. answer .NC. NOPE) Cint) 10 

7^ III • ."Ik. 

78 IM ArjSNER^fcg. YUP) CUTO 11 

79 COTn 12 

80 11 III • .FAL^E. 

81 COIU 13 

82 C 

83 C tRfltlR MESSAGE 
8<. C • 

85 10 WRl TE ( TTYOUT/ 104) 

66 GOTO 9 

87 C 

88 C ASK THE "Y- UUESTION ANO CHECK 

89 C 

90 8 RELATE • ZPQINT - N 

91 lA CALL QJEST( INOEX(N ♦ 1 )/ I NDEX ( REL ATE > / TTYOUT/ QT YPt/ TXTHDS J 

92 READ(TTYINf 200) ANSWER 

93 MRITE(TTY0UT/106» ANSWER 

9* IF(ANSWER .EQ. ABORT) GOTO 31 

95 IF (ANSWER .NE. YUP .AND. ANSWER .NE, NOPE) GOTO 15 

96 III . .FALSE. 

97 IF(ANSWER .EQ. YUP) GOTO 16 

98 GOTO 12 

99 16 ZZZ • .TRUE. 

00 GOTO 13 

01 C 

02 C ERROR HESSACE 

03 C 

0<. 15 WRITEC TTYOUT/ 104) 

05 GOTO 8 

06 C 

07 C COME HERE WHEN THE QUESTION WAS ANSWERED NO. 

08 C 

09 C IF ZZZ » .TRUE./ "X" QUESTION ASKED-SEARCH ROHOF PHI 

10 C 

U C IF lit . . FALSE. /"Y" QUESTION ASKED-SEARCH COL UF PHI 

12 C 

13 12 IF(.NOT. ZZZ) GOTO 17 

14 GOTO 18 

15 C 

16 C COHE HERE WHEN THE QUESTION WAS ANSWERED YES 

17 C 

18 C IF ZZZ • . FALSE, /"X" QUESTION ASKED-SEARCH COL OF PHI 

19 C 

20 C IF ZZZ . .TRUE,/ "Y" QUESTION ASKED-SEARCH COL IJF PHI 

21 C 

22 13 IF(.N0T. ZZZ) GOTO 17 

23 C 

24 C SEARCH ROW OF PHI FOR INFERENCE TO BE ENTERED INTO "MAT" 

25 C 

26 18 DO 19 J.l/DIHPHI 

2/ IF(.N0T. PHI(ZPOINT/J)) GOTO 19 

28 ICTR2 . J 

29 IF(ICTR2 .GT, N) ICTR2 . ICTR2 - N 

30 C 

31 IF(J .LE. N) OOTO 20 

32 C 

29i ' 



31 MAT(N ♦ l/ICtR2) • .mUl, 

3« GOTO 21 

35 C 

36 20 MAT(ICT«2/N ♦ I) • .FALSE, 

37 C 

39 21 FLAC(J) > .TRUE. 
39 ^ Z(J) - .TRUE. 
*0 19 CONTINUE 
*l GOTO 25 

42 C 

43 C SEARCH COL OF PHI FOR INFERENCE TO BE ENTERED INTO "MAT" 
4* C 

^5 17 00 22 I-l/DIHPHI 

*6 IF(.NOT. PHKI/ZPOINTM GOTO 22 

47 ICTR2 - I 

*8 IF<ICTR2 .CT, N) 1CTR2 • |CTR2 - N 

*9 C 

50 1F(I .LE. N) GOTO 23 

51 C 

52 MAT(N ♦ 1/ICTR2) > .FALSE. 

53 GOTO 2-^ 
5* C 

55 23 MAT(ICTR2,N ♦ I) ■ .TRUE. 

56 C . • 

57 2* FLACd) • .TRUE. 

58 III) • .TRUE. 

59 22 CONTINUE 

60 C 

61 C PHI MATRIX ZERO OUT ROUTINE 

62 C 

6) 25 00 26 I>1>DIMPHI 

64 IF(.NOT. Z(I)) GOTO 26 

65 C 

66 00 27 J-l/DIMPHI 

67 PHKI/J) • .FALSE. 

68 PHKJ/I) - .FALSE. 

69 27 CONTINUE 

70 26 CONTINUE 

71 C 

72 C TEST FLAG VECTOR FOR ALL .TRUE. 

73 C IF SO/ ALL ROHS/COLS OF PHI ARE ZERO-ALCORITHM 

74 C IS COMPLETC-RETURN 

75 C 

76 C IF NOT ALL .TRUE./ ZERO OUT NECESSARY VECTORS 

77 C AND CO AGAIN. 

78 C 

79 C 

80 00 28 l«l/DIMPHI 

81 IF(,N0T. FLAGdn GOTO 29 

82 28 CONTINUE 

83 C 

84 C COME HERE WHEN PHI IS NULL 

85 C 

86 33 N • N ♦ 1 

87 MAT(N/N) • .TRUE. 

88 C 

89 C SAVE NEW MATRIX ON PERMFILE IN CASE OF TIMESHARING FALlURE 

90 C 



it] 

2'it 
29i 

2<»e 

291 
298 
2<»^ 
309 
901 
30i 
30! 
30< 
30! 
30( 
30" 
30( 
30; 
31 
31 
31 
31 
31 
31 

31 
31 
31 
3i 
31 
3i 
32 
32 
32 
32 
32 
32 
32 

3; 

33 

3: 
3; 

3] 
33 
33 
33 
33 

3: 

3* 
3< 
3< 
3' 
3< 
3< 
3< 
3< 
3< 



CALL tU(N<MAi«lNUfcX«10«.rALSE./SYSI 

KEEP 8l)R0[RP<& until USER TYPES A "0" FOR NEW ELlt<T NUHfiER 

GlHO );> 

3 RfcTURS 

ERROR MESSAGE 

) -RITe( TTyOUT/ lOl ) INDEXCN ♦ 1) 
CQTo 2 

PHI STILL HAS SOME l)N£S IN IT 

29 00 30 l'l*OIMPHI 
Z<I) - .FALSE. 

30 CONTINUE 

CO AGAIN ! 
GOTO 7 

COME HERE WHEN USER HAS ABORTED BORDERING SEQUENCE 

31 MRlTE(TTyOUT/105) INOEXCN t 1) 
GOTO 3 



ASK YOUR OWN QUESTIONS CODE 

37 WRITElTTYOUT/107) 

CALL GETNUM(NUMS/2*TTYIN/TTY0UT) 

RESET TO AUTOMATIC QUERIES T 

IF(NUMS(1) .LE, 0 .OR. NUHS(2) .LEt 0) GOTO Al . 

ONE OF NUMBERS TYPES MUST BE EQUAL TO IN0EX(N ♦ I) 

IFINUMSd) ,NE, INOEXIN ♦ I) .AND. NUM$(2) .NE. INDEX(N ♦ D) 
♦GOTO 38 

NEXT CHECK IS JUST IN CASE USER TRIES SOME FUNNY STUFF 

IFINUMSCI) ,EQ, INDEXIN * \) .AND. NUMS(2) .EQ. INDEX(N 4 1)) 
♦GOTO 37 

ME KNOW THAT ONE OF THE NUMBERS READ IN IS THE NEW ELEMENT 
BEING ADDED. FIND OUT WHICH ONE IT IS AND SEE If OTheR 
NUMBER TYPED IS IN SYSTEM INDEX 

IFlNUMSd) ,EQ. INDEXIN ♦ 1)) GOTO 39 

IF WE MAKE IT HERE/ SECOND NUMBER TYPED IS NEW ELEMENT. 
SEE IF FIRST ONE IS IN SYSTEM INDEX 

K • I 



ERIC 



29 



ii 



ERIC 



349 
390 
351 
392 
393 
394 
399 
356 
397 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
3)8 
3''<9 
370 
371 
372 
373 
374 
379 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 

392 
393 
394 
399 
396 
397 
398 
399 
400 
401 
402 
40 < 
404 
409 
406 



42 CALL »=IN0IT(N,NUMS(K),J,I, J,IN0EX,FQUN0UFDUNO2,jYS> 

iF(FauNoi) cara 4o 

ERROR MESSAGE* ONE OF NUMBERS TYPgO Is'noT IN SYSTEM INDEX 

WRITEITTYQUTMOB) NUMS(K) 
GOTO 37 

RESET BACK TU AUTOMATIC QUERIES 

41 QST . .FALSE. 

WRITE(TTYOUT*110J 
GOTO 7 

ERROR MESSAGE* ONE OR THE OTHEH OF THE NUMBERS TYPED MUST BE THE 
NEW ELEMENT BEING INTRODUCED INTO SYSTEM 



38 WRITE(TTYaUT*109J 
GOTO 37 



INOEXCN ♦ 1) 



IF ME MAKE |T HERE* FIRST NUMBER |S NEW ELEMENT, 
SEE IF SECOND TYPED IS IN SYSTEM INDEX 

39 K ■ 2 

GOTO 42 

NOW CHECK TO MAKE SURE THAT USER HASN'T' EITHER ALREADY 
ANSMEREQ THIS QUESTION OR INFEREO THE ANSWER 

40 ZPOINT > I 

IF(K .EQ, 2) ZPOINT • ZPOiNT ♦ N 
IF(.NOT. FLAC(ZPOINTJ| CQTO 43 

K ■ N ♦ 1 

CALL FlNDlT«K,NUMS(n*NUMS<2J*I*J,lN0EX*FOUNOl*FOUND2*SV$I 
IF(MAT(I«J)) GOTO 44 
WRlTEiTTYOUTMll) NUMSd), NUMS(2) 
GOTO 37 

44 WRITE(TTY0UTM12J NUMSdJ, NUM$<2) 
GOTO 37 

FORMATS 

100 FaRMAT(42H-TYPE NEXT ELEMENT NUMBER OR 0 FOR BREAK T) 

101 F0RMAT(12H-#««ERR0R«»**I9,24H ALREADY IN SYSTEM INDEX) 

102 FORMAT (29H-««*ERR0Rt«« TEXT FOR ELEMENT* 15, 17H NOT IN TEXT fllt^ 

103 F0RMAT(62H-«««N0TE««« NUMBER OF ELEMENTS HAS REACHED COMPUTER'S LI 
♦MIT 0F,I9/24H "BO" COMMAND TERMINATED) 

104 F0RMAT(46H-«*«ERR0R«** INVALID RESPONiE TO LAST QUESTION) 

109 F0RMAT(42H-«««N0TE««* BORDERING SEQUENCE FOR ELEMENT, 19, 17H HAS BE 
♦EN ABORTED) 

106 FORMATC tH>/2X,A2) 

107 FORM4r(99H WHICH ELEMENTS TO BE COMPARED T (TYPE 0 FOR AUTOMATIC)) 

108 FORMATC 12H-#««ERR0R«*«, I5,20H NOT IN SYSTEM INDEX) 

109 FORMATC 12H->««ERR0R*««, I5,28H MUST BE ONE OF THE ELEMENTS) 

110 F0RMAT(43H 0 ACKNOWLEDGED, BEGINING AUTOMATIC QUERIES) 

111 F0RMAT(64H-S0RRY, THIS QUESTION HAS BEEN EITHER ASKED ALREADY OR F 
♦ILLEO BY/IOH INFERENCE, 15, 2H R,15,5H • N0» 



254 



\7 



koi \\: ru^HAr(i>^M.suRRY/ ihi^ qjestion has 6EEN eitmem asked alheady Uk F 

408 »UI£0 6</lOH lNFFREr4CE/ • Y^S) 

409 JOG rnM»«AT(A2 I 

410 £N0 
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SUBROUTINE FINOZ (DIMPHI,PHI/ZP0INT/FLAC/SVS2) 

THIS SUBROUTINE RETURNS THE Z (ZPQINT) WITH THE MAXIMUM 
IN'=eRENCE POTENTIAL GIVEN A PHI MATRIX 

WRITTEN BV: OAVIO R. TINCLINC JR. 

ENCINEEKINC AND PUBLIC POltCY CROUP 
UNIVERSITY OF OAYTQN 
OAVTON/ OHIO 45469 



VARIABLE NAME 

DIMPHI 

PHf 

ZPOINT 

FLAG 



SYS2 



DESCRD-riON 

THE CURRENT DIMENSION OF "PHI*. 

THE TRANSITIVE BORDERING INFERENCE 
OPPORTUNITY MATRIX. 

THE ROW/COl OF "PHI* WHICH 

HAS MAXIMUM INFERENCE POTENTIAL 

VECTOR DENOTING ROWS/COLS OF "PHP 
WHICH HAVE BEEN SET TO ALL ZEKOS 

DIMENSION SIZES OF SYSTEM MATRICES 



MIN 
VI 
VI 
Z 



SCRATCH VECTOR CONTAINING THE 
MIN2<Vl/V2) SET 

VECTOR CONTAINING THE NUMBER OF ONES 
OF THE COLS OF "PHI". 

VECTOR CONTAINING THE NUMBER OF ONES 
OF THE ROWS OP "PHI". 

DENOTES MEMBERS OF THE Vi SET 



•^^♦NOTE**** 

THE DIMENSIONS OF "MIN", "Vl", -V2"/ ♦ "Z" SHOULD BE SET 
EQUAL TO "SYS2". 



ERIC 



IMPLICIT INTECER*2 <A-Z) 

LOGICAL*! PHI(SYS2/SYS2)/ Z(256)/ FlAC(SYS2) 
DIMENSION MIN(296)/ Vl(256>/ V2(296) 

CALCULATE THE SET SET V 

DETERMINE V (1) AND V (I) fQH 2(1) 
1 2 

WHERE: V (I) IS THE NUMBER OF PS IN COL I OF PHI 

1 

V (1) IS THE NU-^BER OF l»S IN ROW I OF PHI 
2 



00 I 'M'OIMPHI 



29 } 



1^ 









V i i I ) • ) 


60 






V2 t M • 0 


6 1 






1 F I Ft AG U M GOTO I 


6^ 






V I ( 1 1 » V I SC M PmI # 1 # OIHPMI , StS2 ) 


6 1 






w2(l) • V2Sn(PHI*l*DIMPHi#SVS2> 


6<i 








• 6 ^ 


c 






tt 


c 




Nf}-^ OE^E^M^ME The SET V* 


6 7 


c 






68 


c 




V • » MA ( h i N2 1 V I p V 2 ) ) 


69 


c 




V 


7 D 


c 




FlN0MiN2tVl/V2) 


71 


c 






72 




z 


on 3 I«l/DIHHHI 


7 3 






.11 N ( 1 ) » 0 


7 <• 






I F I F L AG U ' ) GOTO 3 


75 






MI N I I ) - 11 N2 ( V I ( 1 ) / V2 ( 1) ) 


76 




i 


CONT I NUE 


7 7 








78 


c 




GET HAX2(MIN2(VlfV2)) 


7 9 


c 






80 






BICGER « HINU ) 


8 I 






ZPOINT a 0 


82 






00 5 I«liDIMPHI 


8 3 






I F ( FL AG ( I ) ) GOTO 5 


8<* 






8IG • HAX2 ( BIGGER#nlN( 1 ) ) 


a 5 






IF(BIU .GT. BIGGER) CALL ZER ( I p SV^2 ) 


86 






IFBIC tLE. H|N(1)) 2(1) » .TRUE • 


8 7 






IF(BIG .GE* BIGGER) BIGGER ■ BIG 


88 




5 


CONT INUE 


89 


c 






90 


c 




NOW FIND SET OF V FOR WHICH 


91 


c 




VI ♦ V2 IS A MAXIMUM 


92 


c 






93 




9 


BIGGER « 0 


9^ 






DO 10 i«WOIMPHI 


95 






I F ( .NOT . Z ( I) ) GOTO lO 


96 






BIG ■ MAX2(Vl(I) ♦ V2( I )#BIGGER) 


97 






IF(BIG .wE. BIGGER) GOTO 10 


98 






BICGER ' BIG 


99 






ZPOINT « I 


100 




10 


CONT I NUE 


lOl 




11 


RETURN 


102 






END 
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SUBP JUT I HE TBPHI (N*A,l>HI,0IMPHI,SUBftEL,SYS2,SVS) 

THIS SUBROUTINE FORMS THE TRANSITIVE BORDERING INFERENCE 
OPPORTUNITY MATRIX 

WRITTEN' BY: OAVIO R. TINGLING* JR. 

ENGINEERING ANC PUBLIC POLtCY GROUP 
UNIVERSITY OF DAYTON 
OAYTON* OHIO 49469 



VARIABLE NAME 

N 

A 

PHI 

OIMPHI 
SUBREL 



SYS2 



SYS 



DESCRIPTION 

THE NUMBER OF ELEMFNTS IN "A", 

THE CURRENT MODEL MATRIX 

OUTPUT INFERENCE l»PPORTUN|TY MATRIX 

THE CURRENT DIMENSION OF "FhI", 

SUBORDINATION RELATIONSHIP SWITCH, 
IF THIS VALUE IS .TRUE., A SPECIAL 
PROCEDURE IS PERFORMED ON THE "PH|" 
MATRIX. IF .FALSE./ NO SPECIAL 
PROCEDURE IS DONE. 

DIMENSION SIZES OF "PhI" AND 
ASSOCIATED MATRICES 

DIMENSION SIZES OF SYSTEM MATRICES 



IMPLICIT. INTEGER*! U-Z ) 
INTEGER N 
LOGICAL SUBREL 

L0GICAL«1 A(SYS,SVS), PHI ( SYS2/SYS2 ) 



FORM THE INFERENCE OPPORTUNITY MATRIX PHI IN rwO STEPS 
1. FORM Nl 

A 0 

•Nl" ■ 

B A 

-T 

where: B ■ a if a TRANSITIVE RELATIONSHIP IS USED, 



ERIC 



8 « A ♦ I IF A TRANSITIVE AND SUBORDINATION RELATIONSHIP 
IS USED. \^ 

2, MULTIPLY ON ••NP TO OBTAIN PHI 

A 0 



293 



16 



u 

60 

6^ 

63 
6<» 
65 
6b 
6T 
68 
61> 
70 
71 
7? 
73 
7<i 
75 
76 
77 

7a 

79 
80 
81 
82 
83 
8<i 
85 
86 
87 
86 
89 
90 
91 
93 
93 
9<i 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10^ 
105 
106 
107 
108 
109 



10 
\\ 
12 
13 
\h 
15 
16 



•PHI* 1 

ABA A 
01) STEP I 

00 1 l»l#N 
DO I J•U^4 

PUT []H LEFT OF "Nl- 

PHI ( 1/ J ) • A( 1/ J) 

PUT "A" 3N LOWER RIGHT OF "Nl" 

PHKl ♦ N/ J ♦ N) • A( 1/ J) 

PUT QM LOWER LEFT OF ^Hi"^ 

PHin ♦ H,J) • .NOT. AU/1) 

1 CONTINUE 

SEE IF JSER WANTS SUBORDINATION RELATION. 

IF YES/ ADD "I" TO "B" SECTION, 

IF NO. SKIP AROUND AND CONTINUE PROCESSING. 

1F(.NQT. SUBREt) GOTO 2 
DO 3 I«l/N 

PHIM ♦ N/ I) • .TRUE, 

3 CONTINUE 

DO STEP 2 ^ 

FIRST MULTIPLY "B" TIMES "A" AND STORE IN "0" AS FIRST OPERATION 

2 DIH • N ♦ 1 

DO ^ 1>UN 
DO A J-l/N 

PHI (1/ J ♦ N) • .FALSE. 
DO ^ K«l/N 

PMIM/J ♦ f • PHKI/J ♦ N) .OR. <PHMI*N/K) ,AND, PHUK^N^J^NM 

<» CONTINUE 

NOW MULTIPLY ••A" (LEFT OF "0"> TIMEl THE PRODUCT STORED IN 
"0" AS SECOND OPERATION. STORE THAT PRODUCT lUTO ITS CORRECT 
LOCATION (ABA), 

4 

DO 5 I-WN 

DO 5 J^NN 

PHKI ♦ N/J) ■ .FALSE. 
DO 5 K«l/N 

PHMI ♦ N/J) » PHKI ♦ N/J) .OR. (PHIfl/K) .ANO. PHI(K/J*N)) 



ERLC 



29;) 



17 



117 




5 CONTINUE 


116 


C 




n<> 


c 


AS FINAL OPEf^ATION/ 


120 


c 




121 




00 6 l»UN 


122 




DO 6 J-OIM/OIHPHI 


121 




PHI(I,J) « .FALSE, 


12<» 




6 CONTINUE 


125 




RETURN 


126 




END 



t 



ZAP -0" SECTION BACK TO ZEROS 



3ly-J 



TMI^S FUNCTION SU3PRUCRAH COMPUTES THE NUMBER QF 
ONES IN COl "J'^ OF PH!. , ' 

WRlTTp< BY: DAVID R. VINClINCi JR / ^ 

/ ENCINEERPIC AND PU3L IC POLICY CROUP 
UNIVERSIfV OF DAYTON 
DAYTON/ OHSO S5<i69 

IKPUCIT iNTECER^a (A-Z) 

LOOICAI*! PHl(SY52/SYS2) ^ / 
VISET ■ 0 

00 I 1»1#DIMPHJ ' / 

IFIPHK I, J)) viSET • VISET ♦ I 
I CONTINUE . , 
RETURN 
END 



/ 

301; 

I 
( 



19 



INTEGER FUNCTION V2SE T ^2 < PHI / I # 0 1 HPHI # SYS2 ) 



THIS FUNCTION SUBPROGRAM COMPUTER THE NUMBER OF 
ONES IN ROW "1* OF PHI, ' 

WRITTEN BY? OAVIO YINCLINC^ JR 

ENGINEERING AND PUBLIC POLICY GROUP 
UN'^TISITY OF OAYTON 
r' OHIO ^5^69 



IMPLICIT IK 
L0G1CAL4»1 
V2SET » . 
00 1 J>'i 

iF(pHn^,. 

I CONTINUE 
RETURN 
END 



V2SET ♦ I 



30^ 



I 

2 
) 
d 
5 
b 
7 
8 

10 
U 



12 C 

13 C 



15 
16 
IT 
18 
19 
23 
21 
22 
23 
2d 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3d 
35 
36 
37 
38 
39 
MO 
dl 
<t2 
d3 
dd 
45 
Mb 
d7 
dS 
d9 
50 

51 C 

52 C 

53 C 
5d 
55 
36 
17 
58 



C 
C 

c 
c 
c 

r 

c 
c 
c 
c 

c- 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C ' 

c 

c 
c 
c 
c 
c 



SUiiPUJl INE JUL fV(N* MATRIX, INOCX, TTrUUT* SY b ) 

This sae«3'iTiN€ will display the digraph of -mairix" in a 

LEVELS FQRHAT 

WRITTEN by: OAVIO R, VINGLINC* JH, 

ENCINCERINC AND PUBLIC POLICY GR )UP 
UNIVERSITY OF DAYTON 
UAYTON* OHIO 4»5<i6<) 



VARIABLE NAK6 
N 

MATRIX 
INDEX 

TTruuT 
SYS 



NC 

matrxx 

INOXX 
LEVELS 

NLEVEl 



DESCRIPTION 

THE NUMBER or EL[M[NTS IN •'MATRIX*' 

REACHABILITY MATRIX To BE OlSPtAYED 

THE INDE>C SET OF ••MATRIX'* 

r=ORTRAN WRITE UNI I NUMBER FOR 
TELETYPE 

DIMENSION SIZES Oh SYSTEM MATRICES 



THE NUMBER OF ELEMENTS IN THE 
CONDENSATION MATRIX 

SCRATCH MATRIX FDR. LEVELS ROUTINE 

SCRATCH INDEX VECrUR FOR LEVELS 
ROUTINE 

SCRATCH VECTOR DENOTING THE NUMBER 
OF ELEMENTS ON EACH LEVEL, 
LEVELSd)" NUMBER OF ELEMENTS ON 
LEVEL lU 

THE TOTAL NUMBE LEVELS 



♦♦♦♦NOTE**** 

THE DIMENSIONS OF «MAT^XX-# "INDXX", AND "lEVELS" SHOULD BE 
EQUAL TO "SYS**, 



IMPLICIT INTEGER*^ (A-Z) 
INTEGER H, INDEX, INDXX, NC 

DIMENSION INOEX(SYS)# INDXX(128)# LEVELS(12B) 
LOGICAL*! MATRIX(SYSiSYS)i MATRXX( 121^ 128 ) 

CHECK FGR ERRO^^ 

IF(N .LE. 0) GOTO I 

STEP 1---REARRANGE "MATRIX** INTO HiERARCHIAl MiHM - PUT 

RESULT IN "MATRXX** AND **INDXX«. 



ERIC 
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21 



CALL rtlERCH(N,MATR I X,IN0EX>MATRXX,1N0XX/NLEVEL, LEVELS/ SYS > 
STEP 2---PUT "MATRXX" INTO STANDARD FQRN 
CALL STAN(N,HATRXX/ 1N0XX/NLEVEL*LEVEL$/SYS) 

ST6P 3 — -Ca^lPUTE CONDENSATION MATRIX OF "MATRXX" - LEAVE 
RESULT IN "MATRXX". 

NC • N 

CALL CONOE»NC/ MATRXX, I NOXX, LEVEL S, TTYQUT, , TRUE .* SYS ) 

COMPUTE NONREOUNOANT ADJACENCY MATRIX (SKELETON MATRIX) 

CALL SKLTN(NC/MATRXX,SYS) 

PRINT LEVELS FORMATTED OICKAPH 

CALL 01 SPLV(NC/MATRXX*IN0XX, LEVELS* TTVOUT* SYS) 
RETURN I 

ERROR MESSAGE 

I WRITE(TTY0UT*100) 
RETURN 

FORMAT 

100 F0RMAT(*2H-«**ERR0R*** NO STRUCTURE CURRENTLY EXISTS) 
END 



30 ; 



I 






DISPIV(N 


#SKITN/ INOEXa EVE LS/ TTYOUT, SYS) 


I 

1 


C 

c 


THIS $JdAOUr|N£ PRINTS A 


LEVEL FORMATTED DIGRAPH FROM 


h 


c 


thl input 


S<U6 TON 


MATRIX, 


9 

t 


c 
c 


H<l 1 T TEN OV 


: UAVID R. Y|NGLINC# JR, 


7 






fcNGINEERINC AND PUBLIC POLICY GROUP s 


B 


c 




UNIVERSITY OF 


DAYTON 


9 


c 




OAYTON# 


OHIO 


45469 


10 


c 










1 i 


c 


VARIABLE NAHt 




DESCRIPTION 


\Z 


c 










1 ) 


c 


N 






NUMBER OF ELEMENTS IN THE INPUT 


1<» 


c 








SKELETON MATRIX 


15 


c 










16 


c 


SKITN 






INPUT SKELETON MATRIX 


17 


c 










18 


c 


INDEX 






INDEX SET OF ••SKLTN", 


19 


c 










20 


c 


LEVELS 






INPUT VECTOR DENOriNG THE NUMBER 


21 


c 








OF ELEMENTS ON EACH LEVEL* 


22 


c . 








LEVELS(I) « NUMBER OF ELEMENTS ON 


21 


c 








LEVEL n It 




c 










25 


c 


TTYOUT 






FORTRAN WRITE UNIT NUMBER FOR 


26 


c 








TELETYPE. 


27 


c 










28 


c 


SYS 






DIMENSION SIZES OF SYSTEM MATRICES 


29 


c 










30 












31 


c 










32 


c 


LIST 






SCRATCH VECTOR FOR LEVELS PRINTOUT. 


33 










"LIST** CONTAINS THE ELEMENT NUMBEI^S 


3<t 


•c 








FOR PRINTING ON THE TELETYPEt 


35 


c 










36 


c 


LEVEL 






THE CURRENT LEVEL NqMBER 


37 


c 








38 


c 


ROW 






THE ROW OF THE LAST ELEMENT THAT 


39 


c 








IS ON LEVEL # LEVELt 


40 


c 










41 


c 


COUNT 






THE NUMBER OF ELEMENTS IN "LIST*'. 


42 


c 










43 


c 










4<» 


c 


####NOTE«^^^ 






45 


c 


THE DIMENSION OF " 


LIST" 


SHOULD BE EQUAL TQ «SYS", 


46 


c 










47 


c 










48 




IMPLICIT INTECER*2 


(A-Z) 




49 




INTEGER N/ 


INDEX 






50 




DIMENSION 


INDEX(SYS)/ LEVELSISYS)/ LlST(l28) 


51 




LOCICAL^l 


SKLTNISYS 


.SYS) 
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c 










51 


c 


INITIAL IZE 


PROCEDURE 




5<i 


c 










55 




1 • 1 








56 




LEVEL » 0 








57 




ROW « I 








58 


c 
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100 
101 
10] 
10] 
104 
10! 

loe 

101 
101 
10^ 
110 



PRUCCSS NEXT LEVEL 

1 LEVEL » LEVEL ♦ 1 

^Q<4 > ROM ♦ LEVELSCLEVEL ) 
WRI T£( TTYOUT/ 100) LEVEL 

If THIS IS THE FIRST LEVEL/ DO SPECUL PROCESSING 

2 IFtLEVEL ,EQ. 1) GOTO 3 
PROCESS ELE^IENT »l 

FIND ALL ELEMENTS THAT ELEMENT §1 REACHES TO 

COUNT ■ 0 

IMINUS" 1-1 

00 <> J-WIHINUS 

IM.NOT. SKLTNU/jn GOTO k 

FOONO ONE/ PUT INTO "LIST" FOR PRINTOUT 

COUNT • COUNT ♦ 1 

LIST(COUNT) ■ INOEX(J) 

4 CONTINUE 

ALL DONE PROCESSING ELEMENT II, PRINT OUT LINE 
WRITE(TTV0UT,101) INOEX(I), ( L I ST 1 1 1 1 , 1 1 -WCOUNT J 
POINT TO NEXT ELEMENT 

5 I • 1 ♦ 1 

ARE WE DONE PRINTING THE DIGRAPH T7? 
IFtI .GT. N) RETURN 

ARE ME DONE WITH THiS' LEVEL ON DIGRAPH TTT 

IF(I .EQ. ROW) GOTO 1 
GOTO 2 

SPECIAL PROCESSING FOR FIRST LEVEL 

3 WRITE(TTY0UT/102) INDEXd) 
GOTO 5 

FORMATS 

100 F0RMAT(IH-/10X#IIHLEVEL NO, ,I3/1H0> 

101 FORMAT(llX/l5/3H •>* 19 J 7 ( 13/ IH, > /20X M 

102 FORMAK UX/ 19) 
END 
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) 
<« 

b 
1 
8 
9 
10 

la 

13 
U 
15 



THIS SJ8»0UriNE P£AfiRA:<crr A REACHABILITY MATRIX INTU A 
Uni URIEnT^O HIERARCHIAI REACHABILITY MATRIX, 



15 C 
17 C 
16 
19 
20 
2\ 
22 
2) 
2<» 
25 
26 
27 
2B 
29 
30 
31 
32 
33 
3<i 
39 
36 
37 
3a 
39 
^0 

^2 
43 
4<» 
45 
46 
47 
48 
49 
50 
31 
32 
33 
54 
55 
36 
37 
98 



VARIABLE NAME 
ISJxn 

INDXH 

FLAG 

LEVELS 
TEMP 

INREA 
RE Ah 

N 

NEAP 
r4EL 
NL 
SYS 



DESCRIPTION 

VECTQH CONTAtNMC THE iNDfX SET OF 

The Input reachability matrix, 

VECTHR CCNTAININC THE INDEX SET OF THE 
OUTPUT HIERARCHIAL REACHABILITY MATRIX 

LOGICAL VECTOR WHICH DENOTES ELEMENTS 
THAT HAVE ALREADY BEEN PROCESSED. IF 
FlAG(I) • .TRUE./ ELEMENT «I HAS BEEN 
PROCESSED. 

VECTOR CONTAINING THE NUMBER OF 
ELEMENTS ON EACH LEVEL. LEVELS(I) • 
NUMBER OF ELEMENTS ON LEVEL «!. 

SCRATCH VECTOR USED BY LEVELS 
PARTITION ALGORITHM,. IT HOLDS THE 
ELEMENTS THAT ARE ON THE CURRENT LEVEL 

INPUT (ARGUMENT) REACHABILITY MATRIX 

OUTPUT (RESULTANT) HIERARCHIAL 
REACHABILITY MATRIX 

NUMBER OF ELEMENTS IN BOTH INPUT 
REACHABILITY MATRIX AND OUTPUT 
HIERARCHIAL REACHABILITY MATRIX 

NUMBER OF ELEMENTS ALREADY PROCESSED 

NUMBER OF ELEMENTS ON CURRENT LEVEL 

NUMBER OF CURRENT LEVEL 

DIMENSION SIZES OF SYSTEM MATRICES 



♦••♦NOTE**** 

THE DIMENSIONS OF ••TEMP" AND "FLAG" SHOULD BE EQUAL TO 
"SYS". 

IMPLICIT INTEGER*? (A-Z) 
INTEGER H, INOXIN/ INDXH 

DIMENSION INDXIN(5YS)/ INDXH(SYS)<» LEVELS(SYS)/ TEMP(128) 
LOGICAL*! INREA(SYS/SYS)/ RE AH( SYS/ SYS ) / FlAG(128) 

COPY INREA INTO REAM : INITIALIZE FLAG 

00 I l'\,H 
FLACdl • .FALSE. 
00 I JM/N 
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25 



60 




V 1 


r 




f 


61 


f 


6^ 




65 




66 




67 


c 




c 


69 


c 




r 


7 1 


r 


7 > 




f 9 




74 
1 ^ 


r 




r 


7^ 




77 




71 




79 


r 


60 


c 


1 1 




S7 

V C 


r 










85 




S& 

w 1^ 


r 


ft7 


r 


iA 




89 




90 




91 




' ft 












95 


c 


96 


c 


97 


c 


96 


c 


99 





100 
101 
102 
lOJ 
10* 
109 
106 
10? 
108 
109 
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11 

12 
13 
U 
15 
U 



REAHd/J) •.INREA(1/J) 

1 CONTINUE 

INITIALIZE LEVELS PARTITION ALCORITHH 

NL • 0 
N6AP • 0. 

BECIN LEVELS PARTITION ALCORITHH 

THIS ALCnRITHM REARRANGES INDXIN ACCORDING TO A LEVELS 
PAiXTITION. THE RESULT IS IN INDXH* ' 

2 NL • NL ♦ 1 
NEL* 0 

FIND AN ELEMENT TO PROCESS 



DO 3 I«l/N 
IF(FLAC( I ) ) 



GOTO 3 



TEST TO SEE IF THE REACHABILITY SET (R) IS A 
SUBSET OF THE ANTECEEOENT SET (A) FOR THIS ELEMENT 

00 S J«l/N 

iFCRtAHd/j) .AND. .NOT. REAH(J#I)) GOTi 3 
H CONTINUE 

COME MERE IF R MAS A SUBSET OF A 

NEL • NEL ♦ 1 

INOXH(NEAP ♦ NEL) • INOXINd) 
TEMP(NEL) • I 
3 CONTINUE 

NEAP • NEAP ♦NEL 

LEVELS(NL) • NEL 

FOUND ALL ELEMENTS ON CURRENT LEVEL (NL). 

BLANK ROM AND COL ON REAM FOR ALL ELEMENTS ON THIS LEVEL, 

00 5 l«l«NEL 
TEMPI • TEMP( n 
FLACCTEMPl) • ,TRUE. 
00 9 J«l,N 

REAH(TEHPI,J) • .FALSE, 
REAHCJ/TEMPI) • .FALSE, 
5 CONTINUE 

CHECK TO SEE IF ALL ELEMENTS HAVE BEEN PROCESSED 
|F(NEAP .LT. N) GOTO 2 

COHE HERE WHEN ALL ELEMENTS HAVE BEEN PROCESSED, 
LEVELS PARTITION ALGORITHM IS NOW COMPLETE/ BEGIN TO 
CONSTRUCT A LEVELS PARTITIONED HIERARCHIAL REACHABILITY 
MATRIX BASED ON INDXH. 

EXCHANGE ALL ROWS FIRST ^C^^ING TO INOXH 





L 












6 I - UN 








00 7 JM*N \ 


^D 






miNO^Ul) .EO. INOXIM(J)) GOTO B 


21 




7 


CHNTINJE 


2? 


C 




• 


2) 




8 


00 6 K M *N 


2<» 








25 




6 


CONTINUE 


2& 


c 






27 


c 




COPt REM INTO INREA, THIS IS A NECESSARY STfP^ DO NOT 


28 
2^ 


c 

c 




TAKE OUT 1 ? ! 1 ! ^ 


30 






00 9 I«UN 


31 






00 9 J>I,N 


3 > 






1NREA( I J J) « REAH( 1/ J) 


33 




9 


COMT INUE 


34 


c 




WE PRESuNTLY HAVE A MATRIX (INREA) WHICH IS INDEXED ON THE 


35 


c 




35 


c 




TOP BY INDXH AND DOWN THE SIDE BY iNDXtN. REARRANGE THE 


37 


c 




COLS SO THEY ALSO ARE INOEXEO BY INDXH, LEAVE RESULT IN 


3B 


c 




PEAH. 


39 


c 




r 


^0 






DO 10 J 


<»l 






DO 11 J=WN 


4 ? 






lF(lNnxM(I) »F0 iNDXtNfn) rnrn % % 


43 
44 


c 


11 


CONTINUE 


45 




13 


00 10 Km\,u 


46 






REAH(KM) - INREA(K^J) 


47 




10 


CONTINUE 


48 


c 






49 


c 




IN ITS PRESENT FORM^ INREA, FOR ALL PURPOSES OTHER THAN 




c 




THl^ SURRnUTlNF. 1$ SCRAHKlEn mPY HCAM TNTn fKIQCA Tn 


51 
52 


c 
c 




SOLVE THIS PROBLEM, 


53 






00 14 I>WN 


54 






INDXIN(I) - INOXH(I) 


55 






DO 14 J«WN 


56 






INREA( W J) M REAH< 1^ J) 


57 




14 


CONTINUE 


58 


c 






59 






RETURN 


60 






END 
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sueRnuriME st an«n/ matrix* I ndex/Nlevf^/ level S/ svs ) 

THIS SUBROUTINE CONVERTS AN INPUT HIERARCHIAL REACMABIL.TV 
HATRIX (HATRIX) INTO ITS STANDARD FORM. 

EDITED BY! DAVID R. VINGLINC/ JR. 

ENCINEEHING AND PUBLIC 'OLICV CROUP 
UNIVERSITY OF DAYTON 
OAYTON> OHIO ^5^69 



VARIABLE NAME 
N 

HATRIX 

INDEX 
LEVELS 

t<LEVEL 
SVS 



DESCRIPTION 

NUMBER OF ELEMENTS IN INPUT MATRIX 

INPUT/OUTPUT HIERARCHIAL REACHABILITY 
MATRIX. 

INPOTToXItFuT INDEX SET OF "MATRIX", 

INPUT VECTOR DENOTING THE NUM»£R OF 
ELEMENTS ON EACH LEVEL. LEVELSII) > 
THE NUMBER OF ELEMENTS ON LEVEL fl 

THE TOTAL NUMBER OF LEVELS 

DIMENSION SIZES OF SYSTEM MATRICES 



NONES 

END 

START 



NUMBER OF ONES COUNTED 

ENDING SUBSCRIPT FOR LEVEL «I ' 

STARTING SUBSCRIPT FOR LEVEL fl 



IMPLICIT INTECER*2 (A-Z) 
INTEGER N/ INDEX 
..DIMENSION INOEX(SYS)/ LEVELS(SYS) 
L0C1CAL«1 MATRIXISVS/SYS)/ SWIT 

CHECK FIRST TO MAKE SURE ALL NON-CVCLE ELEMENTS 
ARE UPPERMOST ON EACH LEVEL 

END • 0 

DO 1 I>1/NLEVEL 
START • END ♦ I 
END « END ♦ LEVELSdJ 

IF THE NUMBE'I OF ELEMENTS ON LEVEL #1 IS TWO OR 
LESS/ NO RE-ADJUSTMENT IS NECESSARY 

iFtLEVELSd) .LE. 2) GOTO I 

FIND AND MOVE NON-CYCLE ELEMENTS UP ON MATRIX IF NECESSARY 
00 I II«START,ENO 31 3 



•58 



59 LAST » 0 

DJ I «n^»$TAWT,£ND 

<Sl NONCS • 0 

6^ : 

61 OJ 2 CcJl«START#£NO 

6<» IF(MATR|J({R3.4,C0L)U NOSES • NQNt S ♦ I 

65 2 C0^<T|NU6 
6f> C 

6T C CHGCK TJ SFE 1^ ELEMENT nRQW MAS LESS ONES TKAN 

69 C LAST ELEMENT CHECKED 
6? C 

IfiNOHCS olT, LAST) CALL 5^ I TCH ( N/ MATR | X/ 1 NOE X/ ROW/ S YS ) 

Tl IF(N0NES .OE. lAST) LAST . NONES 

72 I CONTINUE 

73 C 

7^ C ALL NON-CYCLE fLEMENTS ARE AT THE BEGININC OF LEVELS 

75 C PARTITION* NOW CROUP THE CYCLES TOGETHER. 

76 C 

7 7 NMINJS « N • I 

78 3 SWIT • .FALSE, 

79 C 

80 C CHECK FOR ONES ABOVE MAIN DIAGONAL 

81 C 

82 00 ^ IM/NMINUS 

83 IPLUS • I ♦ I 
8h 00 5 J'lPLliS/N 

85 1F(.NQT. HATKlXd/J)) GOTO 5 

66 C 

87 C CO^E HERE IF A ONE ABOVE THE MAIN DIAGONAL IS FOUND 

88 C 

89 f CHECK To SEE IF IT IS NEXT TO DIAGONAL ONE-- IF SO/ 

90 C OON»T SWITCH BECAUSE OF THE WAY THE "SWITCH" SUBROUTINE 

91 C WORKS. IF NOT# SWITCH THAT ELEMENT (J) WITH ELEMENT J-l. 

92 C 

93 6 JMINUS » J - I 

9<f IF(I ,EQ. JMINUS) GOTO k 
95 C 

9b CALL SWITCM(N/MATR1X/IN0EX# J#SYS) 

97 SWIT . .TRUE, 

98 J • J - I 

99 GOTO 6 

100 5 CONTINUE 

101 4 CONTINUE 

102 C 

103 C IF ANY SWITCHING WAS DONE/ WE NEED TO CHECK AGAIN 
I0<f C OTHERWISE RETURN. 

105 C 

106 IF (SWIT) GOTO 3 

107 RETURN 

108 END 
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SUBROUTp^E 5WITCH<N/MATR|X/IN0EX/ROW/$YS) 

THIS SUBROUTINE WIIL SWITCH THE ROW AND COL OH ••ROM'' WITH 
THE ROW ANO COL OF ♦•ROW" - \. 

.ilO By: DAVID R, YINCLINC/ JR« 

engin|ERInc and public policy group 
university of dayton 
dayton^ ohio ^5^69 



VARIABLE NAME 

N 

MATRIX 

INDEX 

ROW 

SYS 



DESCRIPTION 

THE TOTAL NUMBER OF ELEMENTS IN 
"MATRIX", 

INPUT MATRIX TO BE SWITCHED 

INDEX SET OF THE INPUT MATRIX 

THE SUBSCRIPT OF THE MATRIX TO BE 
SWITCHED* 

DIMENSION .tIZE OF SYSTEM MATRICES 



OTHER 



THE OTHER ROW TO BE SWITCHED* ALWAYS 
EQUAL TO WROW" - I 



IMPLICIT INTECER^Z CA*Z) 
INTEGER N/ INDEX/ ITEMP 
DIMENSION INDEXCSYS) 
LOGICAL^l MATRIX(SYS/SYS)i TEMP 

OTHER ■ ROW - I 

SWITCH THE ROWS 



DO 1 I«UN 

T|:HP 

HATRIX(ROW/ I ) 
MATRIXJOTHER/ I » 
1 CONTINUE 

SWITCH THE COLS 



00 2 1»WM 
TCMP 

M*ATRIX( I/ROW) 
HATAIX( I/OTHER) ■ TEMP 
2 CONTINUE ' 



■ MATR|X(RaW/n 

• MATRIXJOTHER/I) 

■ TEMP 



« MATRIX(I/ROW) 
• HATRlXd/OTHER) 



SWITCH THE INDEX SET 

ITEMP • INOEX(ROW) 

iNOEX(Rnw) • INDEX(OTHER) 
INDEX(OTMER) • ITEMP 



5^ c 
61 



^N0 



> 
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SUitBOJTlNE CUNOE (N/ MATRIX, INDEX/ LCVELSiTTYQUT, TYPE* SYS) 



THIS SUBROUTINE TAKES THE INPUT H|ERARCH|AL REACHABILITY MATRIX 
IN STANDARD FORM AND REDUCES EACH MAXIMAL CYCLE SET INTQ A 
5IKCLE PROXY ELEMENT — THEREBY FORMING THE CONDENSATION MATRIX, 

EDITED BY: UAVIO R. YINCLINC, JR. 

ENGINEERING AND PUBLIC POLICY CROUP 
UNIVERSITY OF DAYTON 
DAYTON/ OHIO <»9<»69 



VARIABLE NAME 
N 

iatrix 

INDEX 
LEVELS 

ttyout 

TYPE 



DESCRIPTION 

THE NUMBER OF ELEMENTS IN THE INPUT 
MATRIX, UPON COMPLETION QF THIS 
SUBROUTINE/ THE fiEW VALUE OF N HILL 
REFLECT THE ELEMENTS DELETIO. 

THE INPUT STANDARD FORM MATRIX/OUTPUT 
CONDENSATION MATRIX 

THE INDEX SET OF "MATRIX", 

INPUT VECTOR WHICH CONTAINS THE 
NUMBER OF ILEKENTS JN EACH LEVEL* 
LEVELSII) " NUMBER JDF ELEMENTS ON 
LEVEL «I* 

FORTRAN WRITE UNIT NUMBER FOR 
THE TELETYPE 

LOGICAL VARIABLE WHICH WHEN .FALSE. 
SUPRESS5S THE PRINTING OF CYCLES AT 
THE TELETYPE. WHEN. TRUE., CYCLES 
ARE PRINTED 



SYS 



DIMENSION OF SYSTEM MATRICES 



LI5T A SCRATCH VECTOR OF DIMENSION •'SYS* 

THAT HOLDS THE INDEX NUMBERS OF THE 
CYCLE SET BEING OPERATED ON. 

COUNT THE NUMBER OF ELEMENTS IN THE CURRENT 

CYCLE SET BEING OPERATED ON. 

P05ITN THE POSITION TALLY IN THE "LEVELS" 

VECTOR, 

«*«**NOTE****« 

THE DIMENSION OF "LIST" SHOULD BE EQUAL TO "SYS". 

IMPLICIT INTECER^Z (A-Z) 
INTEGER Hf INDEX 

DIMENSION IN0EX(SY5)/ LE VELS < SYS^ A liT U 2 8 ) 
LOGICAL TYPE A I 

LQC|CAL«l MATRIX(5VS/SYS) ^ 



I r 





C 


76 


c 


77 


c 


78 


c 


79 




80 




81 




82 




83 




84 


c 


89 




86 


c 


87 


c 


88 


c 


89 




9d 


c 


91 


c 


92 


t 



93 
9<i 
95 

96 

97 C 

98 C 

99 C 
100 
lOl 



CMCCK F:ia A USE ABOVE TmE HAIM OUCDNAL <F|Nl] A CYCLE) 

I » I 

1 COJNT « I 
LIST( I ) • INU[X( I) • 
J • I ♦ I 

|P(.^:)T, MATRIX|I/J)J GOTO J 

A ONE WAS f^QUNo/'PUT THAT ELEMENT InTQ CYCLE PRINTOUT LIST 
ANO THEN ELIMINATE FROM THt MATRIX, 

2 COUNT • COUNT ♦ I 
LIST(CUUNT) • INDEX(J) 

CALL EL IM(N/HATRIX/ INDEX/ J/SrS) 

NOi^ RED'JCE NUMBE^R OF ELEMENTS ON LEVEL WHERE AN ELEMENT 
WAS JUST EL IMlNAl^f 0. 

POSITN * 0 
DO 3 IIM/N 

POSITN » POSITN ♦ LEVELSt !!) 
IF(POSITN .CE. J) GOTO k 

3 CONTINUE . 

4 LEVELS(II) - LEVELSnn - I 

ANY MORE ELEMENTS IN THIS CYCLE SET??? 
IF(MATRU(I/J) .AND* J .LE. M) COTO 2 
WRITE. CYCLE OUT 70 TELETYPE , 

IF :TYPE) WRiTEfTTYQUT/lOO) (LrSTdlll/ IlI-l/COUNT) 
5 I • I V I 

IF ( I .LT. N) GOTO I 
RETURN 

FORMAT 

\00 FORMATdlHO CYCLE ON/ 2X/ I 3 ( lo 4/ IH> ) / I 3X ) ) 

END 
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SUBROUTINE El IM(N/ MATRIX/ 1 NC5 X# DELETE/ SYS ) 

THIS SUBROUTINE ELIMINATES ELEMENT FHOH A GfVEN 
INPUT -MATRIX. 

eSiTEO BYr OAVIO R. YINCLIMO* JR. 

ENGINEERING AND PUBLIC POLICY GROUP 
UNIVERSITY OF DAYTON 
DAYTON/ OHIO *5<i69 

VARIABLE NAME ^ DESCRIPTION 

N NUMBER OF ELEMENTS IN "MATRIX", UPON 

COMPLETION OF THIS ROUTINE* THE NEW 
VALUE OF "N" HILL REFLECT THE ELEMENT 
DELETED. 

f^*^"*"^ THE INPUT/OUTPUT MATRIX 

INO.X THE INDEX SET OF "HATRIX", 

DELETE THE SUBSCRIPT OF "MATRIX" TO BE 

ELIMINATED. 

DIMENSION SIZE OF SYSTEM MATRICES 

IMPLICIT INTEGER*2 «A-I) 
INTEGER N/ INDEX 
DIMENSION INOEX(SYS) 
L0CICAL»1 MATRIX(SYS#SYS) 

CHECK FOR -DELETE- .EQ, TO LAST LOGICAL POSITION ON "HATRJX" 

NMINUS * N - 1 

IFIDELETE .EQ. N) GOTO 1 

MOVE AIL COLUMNS BELOW "DELETE" OVER BY I 

01 2 ROWI'DEIETE/NMINUS 
R0W2 • ROWl ♦ I 

DO 9 COL-l/N 

MATRIX«ROWl/COL) • MATRIX(R0M2#C0L) ' 

3 CONTINUE ■ 

MOVE ALL ROWS lELOW "DELETE" UP BY I 
00 2 R0W*1/N 

MATR|X(ROW/ROwn • MATRIX(R0W/R0W2) 

2 CONTINUE 

FIX UP INDEX SET 

DO t> ROMl-DELETE/NMINUS 
R0W2 RCWI ♦ I 
INOEX(R[)Wl) • INOEX(ROW2> 
* CONTINUE 



5^ C SUM)RACr vn fHf)M »7r TU REFLECT OElETIO'^ 

60 : - 

6? P£TURN 
6) END 




SUBROUTINE SttLTN(N*MArRlX/SYS) 



THIS SUBROUTINE CONVERTS THE INPUT MATRIX INTu A 
NONREOUNOANT ADJACENCY MATRIX (SKELETON MATRIX) 

THIS ALGORITHM IS SIMILAR TO THE ONE OESCRlflEO BY 
R.K, SHYAMASUNOAR, "BOOLEAN MATRIX METHOD M)R THE 
CONSTRUCTION OF HIERARCHIAL GRAPHS", IEEE IRANSACTIONS 
ON SYSTEMS, MAN, 'AND CYBERNfTICS, VOL.SMC-B, NO. 2, 
FEBRUARY/ 1978, 

EDITED by: OAVIO R. YINGLINQ/ JR. 

ENGINEERING AND PUBLIC POLICY GROUP 
UNIVERSITY OF OAYTON 
DAYTON/ OHIO ^9^69 



DESCRIPTION 

NUMUER OF ELEMENTS IN "MATRIX", 
iNPUT/OUl r MATRIX TO BE CONVERTID 
DIMENSION SIZES Oi- SYSTEM MATRICES 



VARIABLE NAME 
N 

MATRIX 

SYS 

IMPLICIT INTEGER*2 ik-l) 
INTEGER N 

LOGlCAL*l MATRIX(SYS/SYS) 

NMINUS • N - I 
DO 1 I«2/NMINUS 
IMINUS - I - 1 
DO 1 J>1/|HINUS 

CHECK REACHABILITY OF NODE J TO NODE I 
IFI.NOT. MATRIXCI/J)) GOTO 1 

ADD ALL NODES TO ROM J THAT CAN BE REACHED FROM NODE I 

IPLUS ■ I ♦ I 
DO 1 K-IPLUS/N 

MATRIX(K/J) • MATRIX(K/J) .AND, .NOT, MATRIX(K/I) 

CONTINUE 

RETURN 

END 
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THIS S'JB^-^J'iriNE ZtRlJS UUT Ml PREVIHUSlY 
-<RnfE'< ftv: OAVIO VINCl|NC# JR 



ENClNEfRiNC ASO PUBLIC POLICY CR(JUP 
UNI VERSI lY QF QAYTUN 
DAYTON^ UMIO <*5<»69 



IMPL KIT lurE&ER*2 < A-n 
LOGICAL* I VECTORS SYS2) 

I I » I - I 
00 I JM/ I I 
VECTOR(J) « .FALSE. 
I CONTINUE 
PETURM 
ENO 
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c 
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c 
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c 


2? 


c 


2<» 


c 


2) 


c 


26 


c 


27 


c 
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c 


29 




30 


c 


31 


c 
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c 
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39 
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^0 
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^1 
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SUBRGUT INE QUEST ( EL 1#612#TTYUUT#0TYPE# TXT WU> ) 

THIS SUBROUTINE DISPLAYS EITHER FuLL TEXT 
OR SYMOOLIC QUERIES 

'WRITTEN BY: DAVID R, YINGLING# JR 

ENGINEERING AND PUBLIC POLICY GrtllUP 
UNI VERSI TY OF DAYTON 
DAYTON# OHIO k5k(>9 

IMPLICIT INTEGER (A-2> 
INTECER*2 ELI#E12#TTY0UT^TXTWDS 
LOGICAL QTYPE 

Dir^ENSION BLOCK ( BOO )# BUFF ER ( 256) 
EQUIVALENCE (BLOCK#RU 

COMHQN /FTEXT/ Rl(160)# 11(160)/ R2(160)# L2(160)# R3U60) 
COHMON UNUSED 

DATA CRLF/Z15152551// INI T/Z 1523250C/ 

THE DIMENSION OF "Rr, ••LP* ••RZ"/ ''LZ'S «R3'' SHOULD BE 
* EQUAL TO "TxtWDS". 

THE DIMENSION OF ••BLOCK** SHOULD BE EQUAL TO "TXTWOS • 5.0^. 



SYMBOLIC QUERIES 7 

IF(QTYPE) GOTO 1 

NOPE/ FULL TEXT - READ IN ELEMENTS 

11 « ELI ♦ 4 
FIND(BMl) 

12 • EL2 ♦ 4 

REAOCBMl) (Ll(l)#I>l#TXTWDS) 
READ(8M2) U2 ( I ) # I " 1/ TXTWDS ) ' 
OFFSET « 0 



(RELATIONAL CLAUSE 1) 
(RELATIONAL CLAUSE ?) 
(RELATIONAL CLAUSE 3) 



PRESENT FIVE LINES OF 1/0 

1) INTRODUCTORY CLAUSE 

2) ELEMENT A 

3) CORRALATIDN CLAUSE 
k) ELEMENT B 

9) QUALIFYING CLAUSE 

COUNT • B 
M« 2 

BUFFER(U) m INIT 
DO 2 I* 1#9 

11 • 0 

12 « 0 



PRINT UP TO TEN LINES FOR EACH OF THE ABOVE PHRASES 
00 3 J « lilO 

IF LENGTH INDICATOR IS ZEROii DflN^T PRINT 



57 


C 








6 J 








GOTO 3 


61 


c 








bl 


c 




Mor :e«i» c I'^PUTE length ano 


LOCATION or UNf 


6) 


c 








6<> 






It iCTM . 8lOCK( jfOfFSET) 




65 






11 • l^ ^ I 




66 






12 • 11 ♦ ItnCTM - I 




67 


c 








68 


c 




PUT TEAT INTO BUFFER 


* 


6<) 


c 








70 






13 " t I 




71 






• 13 f LEf^CTH - I 




72 






C > 11 




71 


c 








7<i 






00 ^ III'IB^U 




75 






BUFFERdll) - BLOCKK ♦ OFFSET ♦ 10) 


76 






C ■ C ♦ 1 




77 






CQNTINUF 




78 


c 








79 






I<r « M ♦ 1 




80 






BUFFERU-^) - CRLF 




81 






COUNT - COUNT ♦ UENCTH 




8? 




3 


CONTINUE 




8) 






OFFSET « OFFSET t TXTWOS 




8^ 




2 


CONTINUE 




85 






COUNT « COUNT - 4 




86 






CALL ZAP(COUNT/BUFFER) 




87 






GOTO 6 




88 


c 








89 


c 




SYMBOLIC TEXT QUERIES 




90 


c 






♦ 


91 




1 


WRITE(TTYOUTMOl) ELWEL2 




92 




6 


RETURN 




93 


c 








9^ 


c 




CHECK 4 FORMAT 




95 


c 








96 




100 


F0RM&TUXM7A4) 




97 




lOl 


F0RHAT(1H-M5^2H R^I5^2H? ) 




98 






END 





/ 




39 



1 ^UHRDUTINE F INUIT(N/NI/NJ/SI/S2/ I NDE X/F OUND I / M1UND2/ S YS ) 

2 I 

) C THIS SUBROUTINE FINOS ELEHtMTS H\, N2 IN THE INDEX SET 

C 

5 C THE VALUES SI/ S2 ARE THE POSITIONS OF Nl AND N2 IN THE 

6 C INDEX SET. 
T C 

8 C f\}OU0\ AND FOIJN02 ARE LOGICAL VALUES AND ARE SET EQUAL 

9 C TO .TRUE. IF Nl OR N2 (RESPECTIVELY) ARE FOUND IN THE 
•10 C INDEX SET. 

II C 

IZ C WRITTEN BY: DAVID R* YINCLIMC/ JR, 

13 C ENGINEERING AND PUBLIC POLICY GROUP 

U C UNIVERSITY OF DAYTON 

15 C DAYTON/ OHIO 

16 C 

IT IHPLICIT 1NTECER^2 U-Z) 

18 INTEGER H, INDEX 

19 HMENSIGN INDEX(SYS) 

20 LOGICAL FOUNDl/ F0UND2 

21 C 

22 FOUNOl « .FALSE, 
2'l F0UND2 • .FALSE. 
2^ SI . • 0 

25 S2 « 0 

26 C 

27 00 I I-l/N 

28 IF(NI .EQ. INDEX( n ) SI • I 

29 |F(N2 .E&. INDEXd)) S2 « I 
10 I CONTINUE 

31 C 

32 IF(SI .CT. 0) FOUNDl • .TRUE, 

33 IF(52 .CT. O) FOUN02 • .TRUE, 
3k RETURN 

35 END 

I 



322 

ERIC 

^ ' . ' ^o 



c 
c 

c 



c 



c 
c 
c 



c 
c 
c 



c 
c 
c 



6 C 

7 C 

8 C 
9 

0 
I 

z 

3 

5 C 

6 C 

7 C 

a c 



Sa»^«OUTINE CtTNUMiARRAY^N^TTYIN/TTYOUn 

THIS SUBnOuTlNE WILL READ -N" UNSIGNED INTEC[«S FROM 
THE TE^^MIMAL TYPED IN A FREE FORMAT AND STORf THEM IN 
••ARRAY*' 



IMPl kit INTEGERS? ( A-Z> 

INTEGER NUMS#8UFFER#BIANK#C0MMA 

DIMENSION ARRAY(l)^ BUFFER<80)f NUMS(IO) 

UATA NU^S/lHO,lHUlH2#lH3#lH^#lH5/lH6,lH7^lHH, IH9/ 

DATA BLANK/IH /, COMMA/IHW 



1 reao(Ttyin/20o) buffer 

L • N 

ARRAY(L) « 0 
POWER ■ 0 

DO 2 I-U80 
K . 81 • I 

IF(BUFFER(K) .IQ, BLANK •OR. BUFFeR(K) .EQ. COMMA) OOTO 3 

FOUND A CHARACTER^ SEE IF IT'S A VALID NUMERIC 

DO ^ J-lflO 
n • J - I 

KFIBUFFERU) .NE. NUMSIJ)) GOTO ^ 

ITS A NUMBER^ ADD It TO PRESENT SUM 

ARRAY(L) • ARRAYU) ♦ III ♦ (lO**PawERM 
POWER - PUWER ♦ I 
GOTO Z 
^ CONTINUE 

COME HERE IF CHARACTER FOUND HAS NOT NUMERIC 

WRITE(TTYOUTMOO) 
GOTO I 

FOUND A Dbu.^MTER> SEE IF END OF A NUMBER 

3 |F(ARRAY(L) ^EQ. 0) GOTO 2 
L - L - I 

|F(L .EQ4 0) GOTO 5 
AR«AY(L ) ■ 0 

POWER ■ 0 * 

2 CONTINUE 

MAKE SURE NUMBER(S) IS/ARE LESS THAN 99999 SM 
WE DON' T EXCEED 15 FORMATS 



WRITTEN BY: OAVIO R. YINCLINC/ JR, 



ENGINEERING AND PUBLIC 
UNIVERSITY OF DAYTON 
DAYTON^ OHIO 43^69 



POLICY CRDiiP 



ERIC 








L 

1 


00 b 1 • I # N 




0 %J 










ft 1 




0 


•' 1 1 Milk! 




62 






K t ' UK N 




0 J 




















65 


c 








6f^ 




) 


i^alTCf fr^niiT..iAi i 
W M 1 T t t 1 1 T UU T # i U 1 9 




6 7 






^ T 1 

& Q ' u I 




60 


f 

I 








69 


I 




r 1 iD M \ r c 
r n K PI ♦« 1 J 




f 0 


r 








71 




100 


FORMATUTH- ♦••ERROR 


INPUT NOT 


72 




101 


FORHAT ( 39H-^«*ERR0R^^^ 


NUHBER(S) 


73 




200 


FORMATOOAl ) 




7<r 






END 





NUMEHIC--RETRV) 
TOO LARCE--RETRY) 



ERIC 



33 



^2 



SUBRQUTI'^E lUCN^HAT/ INDEX/ UNI TNOVREAD/ SYS) 



THIS SUBROUTINE HANDLES All PERMFK I/O 

IT WRITES/READS N (THE NUMBER OF ELEMENTS IN THE MA(RIX)/ 
THE SYSTEi MATRIX (MAT), AND THE INDEX SET (INDEX) TQ/FROM 
A PERMFILE. 



9 C WRITTEN BYi DAVID R* YINCLING/ JR 

10 C ENGINEERING AND PUBLIC POLICY CROUP 

11 C UNIVERSITY OF DAYTON - 

12 C DAYTON/ OHIO <i5469 ^ 

U IMPLICIT INTEGER*2 (A-Z) JL 

15 INTEGER N/ INDEX . ^L- 

It LOGICAL READ 

17 LOClCAL<il MAT(SYS/SYS) 

18 DIMENSION INOEX(SYS) 

n c 

20 C CHECK TQ S^E IF THIS IS A READ REQUEST 

21 C 

22 IF(READ) GOTO I 

23 C 

2<» C NUPf IT'S A WRITE REQUEST 

25 C 

26 REWIND UNITNO 

27 WRI TE (UNITNO) N 

28 WRITE(UNITNO) MAT 
2^ WRITE (UNITNO) INDEX 

30 GOTO 2 

31 C 

32 C YUP/ IT WAS A r'eAO REQUEST 

33 C 

3<i 1 REWIND UNITNO 

35 READ (UNITNO) N 

36 READ (UNITNO) MAT 

37 READ (UNITNO) INDEX 

38 C 

39 2 RETURN 
<»0 END 



o 

ERIC 



t(3 



ERIC 



/ 



SUBR1JT INE DlGST&(N#MAT|lIX/ I NDE X> T T Y OUT/ S tS ) 

THIS SUBROUTINE DISPLAYS THE DICRAPH'IN STAGES 

nRITTEN 5Y: DAVID R» .YlNCLIMC* JR, 

ENGINEERING AND PUBl IC ^OlUV GRO^iM 
UNIVERSITY OF DAYTON 
DAYTON^ UMIO <i5<»69 



VARIABLE NAME 

N 

MATRU 
INDEX 
TTYOUT 
SYS 



DESCRIPTION 



MATRXX 

INDXX 

STAGES 

NS 



THE NUMBER OF ELEMCNTS IN THE INPUT 
MATRIX. 

INPUT REACHABILITY MATRIX 
INDEX SET OF THE INPUT MATRIX 
FORTRAN WRITE UNIT NUMBER FOR T»:lETYPE 
DIMENSION SIZES OF SYSTEM MATRICES 



SCRATCH MATRIX FOR STAGES ROUTINE 

INDEX SET OF SCRATCH MATRIX 

VECTOR DENOTING THE HUMBFR OF ELEMENTS 
ON EACH STAGE. STAGFSd) • THE 
NUMBER OF ELEMENTS UN STAGE 01, 

THE TOTAL NUMBER OF STAGES 



•♦•♦NQTE***^ 

THE DIMENSIONS OF ••MATRXX"/ "INOXX*** ♦ ♦'STAGES" SHOULD BE 
EQUAL TO '•SYS'*. 

♦♦•♦NOTE**** 

IN ORDER TO CONSERVE CORE STORAGE* THE SIATC UF THE INPUT 
REACHABILITY MATRIX HAS BEEN DESTROYED. LlT THt PROGRAMMER 
BEWAREtMtnn 

IMPLICIT INTFGER*2 CA-Z) 
INTEGER H$ INDEX/ INDXX 

DIMENSION INDrX<SYS)/ iNDXXdZB)/ STAGES<IZ8) 
LOGICAL^I MATrIX{SY5/SY5)/ MATRXX ( 1 2 B/ 1 2 8 ) 

CHECK FOR ERROR CONDITION 

IF(N .LE, 0) GOTO ^ 

STEP l-~-TRANSPOSE INPUT ORIGINAL REACHABILITY MATRIX 
00 I I"UN 

DO I J«l/N o '> ^ 

MATRXX(l#J? •MATRIXU/I) tJV i 



9 

0 C 



re 
r9 

10 
81 
82 
6) 
8<i 
85 
6f) 
87 
88 

89 C 

90 C 

91 C 
92 
93 

9<» C 

95 C 

96 C 
9? 
98 

99 C 

100 C 

101 C 
102 
103 



UO 2 IM^N 
DO 2 JM^N 

MATRlXi « MATRXXC I/J) 

2 CONTINUE 

STEP 2---ir/ELS PARTITION -MATRIX**/ LEAVE RESULT IN •'MATRXX" 

CALL HlERCH<N^MATRIXHr40EX^MATRXX, IMOXX^NS/ StAr.FS/SYS) 

STEP 3---PIJT ••MATRXX- INTQ STANDARD FORM 

CALL STAN(N/MATRXX^ INDXX^N5^5TAGES/5YS) 

JTEP CALCULATE CONDENSATION MATRIX 

CALL CONDE(N^MATRXX/ INDXX/STACES/TTynUT^ •TRUE.^SYS) 

STEP 5---CALCULATE SKELETON MATRIX 

CALL SKLTNtN^MATRXX/SYS) 

STEP 6---TRANSP0SE SKELETON MATRIX TO PUT INTH UPPER 
TRIANGULAR FORM 

DO 3 I«WN 
DO 3 J-l^N 

MATR|X( I^J) • MATRXX(J,1) 

3 CONTINUE 

STEP 7---PR1NT OUT STAGE DIGRAPH 

CALL DI SP ST (N^ MATRIX I NOXX^ STAGES/ NS/TTYOUT/SyS) 

RE Turn 

ERROR MESSAGE 

^ WRl TE ( TTYOUT/ 100) 
RETURN 

FORMAT 

100 roRMATU2H-«##ERROR*** NO STRUCTURE CURRENTLY tXISTS) 
END 



ERIC 



^5 



I 

2 . 
1 C 

c 

^ c 

5 C 

7 C 

8 I 

9 C 

n C' 

11 c 

i^ c 

n c 

u c 

15 C 

16 C 

17 C 
IB C 

19 C 

20 C 

21 C 

22 C 

23 C 
2<» C , 

25 C 

26 C 

27 C 
26 C 
29 C- 
10 C 

31 C 

32 C 

33 C 
3<» C 

35 C 

36 C 

37 C 
3^ L 

c 

^0 c 

c 

^2 C 
^3 C 

C 

45 C 
^6 C 

47 C^^^^NOTE^^** 



SURRJ'M 1st Ol$PST (r^/ MATRIX/ iMOk ^ # S T ACE S# NS 1 AOfc # IT YUUT,SYS| 



IHIS SUBROUTINE !AK[S 4n UPPER TRIANGULAR SK[llTOfl MATRIX 
AND PRINTS OUT A SUCES OICRAPH 



OAVIO R. y|NClING# JR« 
ENCI^^EERINC ANO PUBl IC PQllCV CRJUP 
UNI VEHSI f Y llF OAYTOM 
DAYTON# UHIO <i5<#69 



VARIABLE NAME 
N 

MATR IX 
INDEX 
STAGES 

TTYOUT 
SYS 

LIST 

COUNT 
ROW 
STAGE 

NSTAGE 
ISTART 



48 C 

47 C 

50 C 

51 

52 

53 

54 

55 C 

56 C 

57 C 
56 



THF OIMENSIC 



DESCRIPTION 

NUMBER OF ELEMENTS |N INPUT SKELETON 
MATRIX, 

INPUT SKELETON MAIRIX 

INDEX SET OF SKELETON MATRIX 

IN^UT VECTOR DENOTING NUMBER OF 
ELEMENTS ON EACH STAGE. STAGESCI) • 
THE .VUMBER Of ELEMENTS ON STAGE «I 

FORTRAN WRITE UNIT NUMBER FOR TELETYPE 

DIMENSION SIZES OF SYSTEM MATRICES 



SCRATCH VECTOR WHICH CONTAINS THE 
INDEX NUMBER OF ELEMENTS RELATED TO 
ELEMENT Ul 

NUMBER OF ELEMENTS JN ••LIST", 

CURRENT ROW BEING PROCES'SEO 

NUMBER OF THE CURRENT STAGE BEING 
PROCESSED 

THE TOTAL NUMBER OF STAGES 

STARTING SEARCH INDEX FOR UPPER 
TRIANGULAR MATRIX 

"LIST*' SHOULD BE EQUAL TO '•SYS'*. 



IMPLICIT INTEGER«2 U-Z) 
INTEGER N# INDEX 

DIMENSION INOEXISYS)/ STACESCSYS)/ LlSY(l?8) 
LUGICAL^l MATR|X(SY5/SYS) 



BEGIN PROCFSSINC! INI riALUE 
ROW • I 



^6 



\ 



59 






STAGF » 0 


6D 






I • I 


61 


C 






62 


C 




BEOIN F INOINC ELEMENTS 


63 


c 






6'! 






ST^CE • STAGE ♦ I 


65 






P0«^ » RUW ♦ STACES(STACE) ^ 


66 






WRITEITTYOUT^IOO) STAGE 


67 


c 






66 


c 




SEE IF WE ARE PROCESSING 14ST STAGE ^ 


69 


c 






70 




<» 


IF(STAGE .EQt NSTACE) GOTO 2 


71 


c 






72 


c 




PROCESS ELEMENTS FOR STAGE«i STAGE^ 


73 


c 






7<i 






COUNT » 0 


75 






ISTART • I ♦ I 


76 






00 3 J'lSTART^N 


77 


c 






78 


c 




FIND ALL ELEMENTS THAT ELEMENT! I REACHES TO 


79 


c 






80 






IF( .NOT. MATRIX( I^J) ) GOTp 3 


ai 


c 






62 


c 




FOUND ONE^ KEEP A RECORD OF IT 


e3 

84 


c 




COUNT • COUNT ♦ I 


85 






LIST(COJNT) • INDEX(J) 


86 




3 


CUNTINUE ' .. 


87 






IF(COUNT •EQ* 0) GOTO 2 


88 


c 






89 


c 




ALL 4)DNE WITH ELEMENT il> PRINT OUT 


93 


c 






91 






WRITE(TrYOUTilOl) INQEXd)^ (LlSTdH* ll-WCdUNT) 


92 


c 






93 




5 


I • I ♦ I t 


9k 


c 




• 


95 


c 




ALL DONE WITH STAGES PRINTOUT???? 


96 


c 






9 7 






IF ( I ,GT. N) RETURN 


98 


c 






99 


c 




ALL OUNE WITH THIS STAGE???? 


100 


c 






lOl 






IF(I .EQ. ROW) GOTO I 


:o2 


c 






103 


c 




CONTINUE PROCESSING THIS STAGE 


104 


c 






105 








106 


c 






107 


c 




PROCESS LAST STAGE 


108 


c 






109 




2 


WRITE(TTY0Ur/102) INDEX! 1) 


110 






GOTU 5 


111 


c 






112 


c 




FURMATS 


113 


c 




• 


lU 




100 


FORMAT ( lM-> lOX/llHSTAGE NO, /13/lHO) 


115 




lOl 


FORMAT ( nx, I5/3H 8 <? U 5 ^ 1 ) / 20X ) ) 


116 




102 


FORMAT! I) X/I5) ' 
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2 
) 
^ 
5 
6 
7 
8 
9 
,D 
I 

,2 
3 

15 
16 
,7 
^8 
.9 
!0 
1 

!2 

:3 

16 
'7 
26 
19 
>0 
II 
\Z 
13 

>5 
\b 
17 
18 
19 
>0 
1 

>Z 
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>9 
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>B 
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SUBRUUriNE Ei.CONT(N#REA, INDEX, T TY IN^ TTYUUT , SYb )^ 

THIS SUBROUTINE, PERFORMS THE ELEMENTARY CONTRACTION PROCESS 

EDITED by: DAVID R, YINCLINC, JR. 

ENGINEERING AND PUBLIC POLICY GROUP 
UNIVERSITY OF OAYTON 
DAYTON, OHIO <»5469 

IMt>L KIT iNTfGER^Z U-Z) 

INTFCER N, INDEX, INDH, NN 

LHCICAL FOUNDl, F0UND2 

LOClCALtl REA(5Y5,SYS), REAHn2fl,l?8) 

UIMENSION INUEX(5Y5), INDHUZB)/ NUMS(2), 10(128) 
VARIABLE NA-HE^' DESCRIPTION 



N 

REA 
INDEX 
TTYIN . 
TTYDUT 
SYS 



REAH 

INDH 

LO 

lU 

IV 

IIU 

I IV 

NEWNAM 

U 
V 



TH€ NUMBER OF ELEMENTS IN '•REA^' ^ 1^ 

A^flUMENT Reachability matrix 

INDEX SET OF ••REA'' 

FORTRAN READ UNIT NUMBER FOR TELETYPE 
>.ORTRAN W5ITE UNIT NUMBER FOR TELETYPE 
DIMENSION SIZES OF SYSTEM MATRICES 

SCRATCH REACHABILITV MATRIX 
fNDEX SET OF "REAM"* 
SCRATCH VECTOR 

POSITION OF ELEMENT U ON "REA" 

POSITION OF ELEMENT V ON "REA" 

POSITION OF ELEMENT U ON ♦•REAH* 

POSITION OF ELEMENT V ON "REAH" 

THE NEW INDEX VALUE FQR THE CQNTRAC/TED 
ELEMENTS . 

ELEMENJP » U TO BE CONTRACTED 
ELEJ*fNT *V Tn BE COWtRACTBO 



• ♦•♦NOTE**** I, 

THE OIMENSIUNS DF "INDM"> "RVfH*«/*"LO'' SHCULO, BE EQUAL TO "SYS' 

ASK FOR TWn ELEMENTS 



ERIC 



330 



'49 



^ ) 


r 
V 


60 




61 




6J 




61 




6<i 




6) 


C 


66 


C 


67 


c 


66 




6^ 




70 


c 


71 


c 


72 


c 


73 








75 




76 


I. 


77 


c 


78 


c 


79 




60 




61 




62 




61 




6<i 




65 


c 


66 




87 


c 


88 


c 


69 


c 


90 




91 




92 


c 


93 


c 


9^ 


c 


95 




96 




97 




96 




99 


c 


100 


c 


lOl 


c 


102 




103 




10^ 


c 


105 


c 


106 


c 


107 




108 




10^ 


c 


110 


c 


1 1 1 


c 


lU 




in 




lU 




115 




116 


c 



I ^^I TE ( r TfOuT/ 100) 

CALL CE r'iah(NUMS# 2 / TTYIN# TTYQUT) 
U • H0^%,{ I ) « 
V ■ UUHS(2) 

IF(U 0 .W. V .EQ, 0) COTU 2 

CHECK TO SEE THAT U AND V ARE |N SYSTEH INDEX 

CALL f riO\UU,\J,Sf,\\J, IV, INDEX/ F0UND1/FDUN02/ SYS) 
iFtFOUUOl .AND, FQUNQ2> GOTO 3 

U AND/OR V DOESN'T EXIST 

I 

IF(.N0T. FnJNDT) WRI TE(TTY0UT/10i) U 
IF(.N0T. FaUN02) WRITECTTYOUT/IOD V 
GOTO 1 ^ . 

DUES U REACH TO V T 

3 NN • N 

CALL HIERCH(NN/REA/ INOEX/REAH/INDH/NL/LO/SYS) 

CALL STAfMNN/REAH/ INDH/NL/LO/SYS) 

CALL CONOt ( ::N, REAM, I NOH,LO/TTYOUT/ .FALSE ./SYS) 

CALL SKLTN(N^/REAH/5YS) 

CALL FIN01T(NN/U/V/1 IU/1IV/IN0H/F0UN01#F0UN02#SYS) *^ 

IFtFOUNDl .AND, F0UN02 .AND. REAM ( 1 1 1 1 V ) ) CHTll 4 

U IS NUT ADJACENT TD V/ ISSUE ERROR MESSAGE 

WRITE(TTY0UT/102) U/ V 
GOTO 1 

OK/ GET NEW NAHE 

<i WRITE(TTYaUT/10J) 

CALL CETNUM(NUMS/l/TTYIN/TTYOUT) 
NEWNAH « NUHS( 1 ) 
1F(NEWNAM »EQ. 0) GOTO 2 

CHECK TO SEE THAT NEWNAM IS NOT JN SYSTEM INDEX 

CALL F INDIT(N/NEWNAM/ 1/ 1/ 1/ IN0EX/F0UND1/F0UND2/SYS) 
IF ( .NOT. FOUNDl ) GOTO 5 

NEWN AM IS IN THE INDEX SET/ ISSUE ERKOR MSG 

WRITE( rTYOUT/lD<») NEWNAM 
GOTO 

UK/ NOW CHANGE MATRIX. 

5 CALL COMftlN(N/REA/lNOEX/IU/IV/NEWNAM/SYS) 

CALL TRNCLS(N/REA/SYS) 

CALL IO(M/REA/ INDEX/ 10/. FALSE. /SYS) 

GOTO I 



3*^ • 

50 



117 

118 C 

119 C 



2 HETURM 



FDRMAFS 



120 C 

121 100 FORMATC 3aH-TYP(E TWO ELEMENTS TO BE CONTRACTED ? ) 

122 101 rORMATC 12M-^>^ERROR**«/I5j20H NOT IN SYSTEM lUUlK) 

123 102 ^t)RMATn2H--t^^ERR0R**^/15/l9H IS NOT ADJACENT TU#I5) 
12<1L 103 F0WMAT(20H NEW INDEX NUMBER T ) 

125 10<» rORMAT( 12H-^^*ERR0R^^*/ I5/2<»H ALREADY tN SYSTFM INDEX) 

126 END 
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THIS SUBROuTlNt PtRFu^^HS THE PQOL I NC OP E R AT I IM 
^DMEO Br: JAVIO R. YlNCL|r4C/ JR. 

ENOiriECRiNC ANO Public policy OR^hin 

/ UNI VtRSI TY UF OAYTON 
UAYTON/ OMID 4|»4|()9 



er|c 



VARIABLE NAHE 
TTY IN 

rrtouT 

SYS 



END 

lU 

IV 

INOH 
LO 

NEWNAH 

REAM 
STAGES 

START 

IJ 
V 



DESCRIPTION 

NUMBER Df ELEMENTS IN "REA" 
ARGUMENT I^EACHABUITY MATRIX 
INDEX SET FOR "RFA" 

FORTRAN READ UN]T NUMBER FOR TELETYPE 
FORTRAN WRITE UNII NUMBER FOR TELETYPE 
DIMENSION SIZES Oh SYSTEM MATRICES 

ENDINC SUBSCRIPT nF LEVEL OR STAGE #1 

POSITION OF ELEMENT U ON "REA" 

POSITION OF ELEMENT V ON "REA" 

INDEX SET FOR "REAM" 

SCRATCH VECTOR. LO(I) ■ NUMBER ' 
OF ELEMENTS ON LEVEL » I (OR STAGE 
n I IFF "STAGES" « .TRUE.) 

"THE NEW INDEX VA'LUE FOR THE 
POOLED ELEMENTS 

SCRATCH REACHABILITY MATRIX 

LOGICAL VARIABLE IF WHEN .TRUE./ 
THE STAGES ARE BEING EXAMINED. WHEN 
.FALSE./ THE LEVELS ARE BEING 
EXAMINED 

STARTING SUB^CRII'I OF LEVEL OR STAGE*! 
ELEMENT #1 TO BE MilULED 
ELEMENT l»2 TO OE PDOLEO 



IMPLICIT INTeCER*2 (A-2> 
INTEGER H, INDEX, INDH 
LOGICAL FOUMUl/ F0UN02/ STAGES 
LOGICAL*! REA(SY5*SYS)/ REAH( 128# 128) 



>^ UlM6NSir)'| |Nl>EX(SYS)/ INDH(128>/ 10028)/ NUfi^(2) 

60 C 

61 C ♦♦♦♦NnTE**^^ 

6^ C TUF. D1NENS1UN5 OF ♦•REAH"/ ♦•INDH", ♦"LO** SHO»)U> BE EQUAL TO "SYS'^. 

63 C ' • 

6<i C 

65 C ASK USER FOR ELEMENTS TQ BE POOLED 

66 C 

67 I WRltE(TTY0UT/lO0) 

66 CALL CETnUH(NUMS/2/TTY1N/TTY0UT) 

69 U • NUHS( I ) 

70 ' V « NUHSIZ) 

71 IF(U .EO. 0 .OR. V .EQ, 0) GOTO 2 
7a C 

73 C SEE IF U AND V EXIST IN SYSTEM INDEX 
7<i C 

75 CALL F|NOIT(N/U/V/ I U/ 1 I NOEX/ FOUNDI / F QUNOZ / S YS ) 

76 IFIFOUNDI .AND. FqUNDZ) GOTO 12 

77 C 

78 C U AND/OR V 0OESN»T EXIST 

79 C 

BO IF(.NOT. FnUNDl) WR I TE ( T T YQUT / 10 1 » U 

ai IF(.NUT. F0UNa2) HRITE(TTY0UT/101) V 

82 GOTO I 

83 C 

8<» C CHECK FOR U AND V ON SAME LEVEL 
85 C 

^ 86 12 STAGES - .FALSE. 

87 CALL H1ERCH(N/REA,1NDEX>REAH/1NDH/NL/L0/SYS) 

88 C 

89 C USE •'LO- TO DETERMINE IF J AND V ARE ON SAME LEVEL OR STAGE. 

90 C 

91 11 F0UND2 • .FALSE. 

92 . FOUNDl « .FALSE. 

93 START • I 
9^ C 

95 DO 5 1-UNL 

96 END • START ♦ L0( D - I 

97 C 

98 . DO 6 J«START/EN0 

99 IF(IN0H(J) ,E0, U) FOUNDl > .TRUE. 

100 IF(INDH(J) .EQ, V) F0UND2 • .TRUE, 

101 6 CONTINUE 

102 C 

103 iFtFOUNOl .AND, F0UND2) GOTO 3 
10^ C 

105 IFCFOUNDI .OR. F0UND2) GOTO 7 

106 C 

107 START • END ♦ 1 
lOB 5 CONTINUE 

109 C 

110 C NOT ON SAME LEVEL/ SEE IF ON SAME STAGE 

111 C 

1.112 7 IF(STAG6S) GHTO 13 

in c 

lU C TRANSPOSE MODEL MATRIX IN ORDER TO FOOL "HIERCH»« SUBROUTINE 

115 C 

116 DO 8 I«liN 
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\ r 

8 



c 

8 C 

9 C 

0 



c 
c 

a c 

9 

0 

1 c 

2 C 

3 C 

5 C 

6 C 

7 C 
8 

9 

cy 

I 

2 C 

1 C 

^ c 

5 

6 

7 C 

a c 

9 C 
0 

I 

2 C 

3 C 



65 



C 



10 



13 



6 
7 

8 C 

9 2 

0 C 

1 c 

2 C ' 

3 100 
% 101 



DJ 8 JM#N 
CONT INUE 
DU 7 

00 9 JM#N 

REA( 1 »J) • AEAH( 1/ J) 

CO'U IMUE 

CALL H|EACH(N,REA^ INDIX/REAH^ INOH/Nl/ 10« SYS ) 

TRANSFUSE MATRIX BACK SO IT IS NOT SCRAMBLED 

00 10 I'WN 

OU 10 JM/N 

R£A( I, J) • REAHU^I) 

CONTINUF 

STAGES » •TRUEt 

GOTO 11 

POOLING ,ERROR HFSSAGE 

WRITEITTY0UT#10^) U/ V 
GOTO 1 

GET PROPE^^ ••POSITIONS'' FOR ELEMENTS U AND V ON ••REA", 

CALL FlNOIT(NpU^V/IU#lV/ lNDEX/FOUN01fFOUN02/SYSI 

ASK FOR r^EW NAME ' 

WRIJE(TTY0UT/102) 

CALL CETNUM(NUMSH/TTY1N^TTY0UT) 

NEWNAM » NUMSd) 

IFINEWNAH .EQc 0) GOTO 2 

MAKE SURE NE><NAM OOESN»T EXIST IN SYSTEM INDEX 

CALL FINOITIN^NEWNAM/ J^J/ J/ I NOEX# FOUNOl/ rOUND2/ SYS ) 
IF(,NOT. FQUNOl) . GOTO 

NEWNAH IS IN THE INDEX SET/ ISSUE ERROR MESSAGE 

WR|TE(TTYOUT/ 103) NEWNAM 
GOTO 3 

OK/ CHANCE THE MATRIX 

.CALL COMaiN(N/REA/ INDEX/ l\J, | V/NE WNAM/ SYS ) 
CALL TRMCLS(N/REA/SYS) 
GOTO 1 

RETURN 

•FORMATS 

F0RHAT(3<,H-TYPE TWO ELEMENTS TO BE POOLED ? > 
FORMATS i;h.#*#ERROR*^^/15/20H NUT IN SYSTEM INDEX) 



175 102 FOKMAT(20H NEW INDEX NUMBER 7 ) 

176 103 FORHATI 12H-**^ERR0R***#I5#24M ALREADY IN SYSTEM INDEX) 

177 10^ FORMATI l2H-t**tRRQR«*^^ |5#4H AND/I505H ARE NDT ON THE SAME LEVcL 

178 tOR STAGE) 

179 END 



/ 
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THIS SUBROUTINE COHBINES |lj AND IV IN RE4 

EDITFO by: 0AV|0 R. t|NCL|NC/ JR. 

tNGINEEHlNC AND PUBLIC POIICY CRihH^ 
UNIVERSITY Qf OAVTON 
OAyTON^ OHIO 4i5<»69 



.6 
.7 
.8 
.9 
!0 
I 

IZ 
!3 
!<• 
!5 
!6 
7 
26 
!9 
10 
\\ 
\Z 
13 

»9 
it 
17 
IB 
19 
^0 
I 

^2 
^3 
^^ 
► 5 
^6 
7 

^8 

^9 

i2 
3 



VARIABLE NAME 
^^ 

REA 

iNorx 

lU 
IV 

NEWNAH 
SYS 



DESCRIPTION 

NUMBER OF ELEMENTS IN "REA** 

ARGUMENT REACHABILITY MATRIX 

INDEX SET FOR "REA" 

SUBSCRIPT II TO BE COMBINED 

SUBSCRIPT #2 TO BE COMBINED 

THE INDEX VALUE Fim THE COMBINED 
ELEMENTS 

DIMENSION SIZES (Ih SYSTEM MATRICES 



IMPLICIT INTECER*2 (A-Z) 
INTEGER N^ INDEX 
LOGICAL*! REA^SYS^SYS) 
DIMENSION INOEX(SYS) 

REPLACE ROW Y WITH THE BOOLEAN SUM OF U AND V 
DO I J«i?N 

REAUV^J) m REAUU/J) .OR, REAUV^J) 

I CONTINUE 

REPLACE COL V WITH THE BOOLEAN SUM dF U AND V 
DO 2 I*WN 

REA(I,IV) • REA(NIV) ,0R, REAd/IU) 
Z CONTINUE 

REPLACE V*S INDEX WITH NEWNAM 

INDEX(IV) . NEWNAM 

ERASE ROW/ COL/ AND INDEX FOR U 

CALL EUMIN/REA,INDEX/1U/SYS) 

RETURN 

END 
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2 


C 


1 


C 




C 


•s 


c 




c 


f 


c 




c 


9 


c 


ID 


c 


11 


c 


U 


c 


13 


c 


l<i 


c 




c 


\t> 


c 


17 


c 


18 


c 


19 


c 


20 


c- 


21 


c 


22 


c 


23 


c 


2<» 


c - 


25 


c 


26 


c 


27 


c 


2B 


c 


29 


c 


30 


c 


31 


c 


32 


c 


33 




3<i 




35 




36 




37 


c 


38 


c 


39 


c 


40 


c. 


^\ 


c 




c 


43 






c 


45 


r 


46 


c 
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48 




49 


c 


50 


c 


51 


c 


52 




53 




54 
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55 
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56 
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57 
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$U8RUUTINE TKNCLS<N/MATRIX#5YS) 

THIS SUBROUTINE WILL TRANSITIVLY CLOSE THE INPUT MATRIX 

WRITTEN BY? RAYMOND L. flUp S.M. 
EDITED BY! DAVID R. YINCLING/ JR, 

ENGINEERING AND PUBLIC POLICY GROUP 
UNIVERSITY OF DAYTON 
DAYTON/ OHIO 45469 



VARIABLE NAME 
N 

MATRIX 
SYS 



NONES 
LAST 

RECORD 



DESCRIPTION 

THE NUHBER OP ELFMENTS IN ••HATRIX" 

INPUT ADJACENCY MATRIX/OUTPUT 
REACHABILITY MATRIX . 

DIMENSION SIZES OF SYSTEM MATRICES 



NUMBER PF ONES IN THE REACHABILITY 
SET OF ELEMENT HI 

NUMBER OF ONES IN THE REACHABILITY 
SET OF ELEMENT H\ FROM LAST 
COMPUTATION 

VECTOR USED TO KEEP ACCOUNT 

OF ONES IN THE REACHABLILITY SET 

OF ELEMENT ni 



IMPLICIT I.NTEGER*2 (A-l) 
INTEGER N 

LOGICAL^l MATRIX(SYS/SYS> 
DIMENSION REC0RD(128) 

♦♦♦♦NOTE**** 

THE DIMENSION OF ^RECORD'^ SHOULD BE EQUAL TO "SYS". 
INITIALIZE PROCEDURE 
DO 1 IM/N 
PROCESS ELEMENT Ul 



NONES 
LAST 



0 
0 



FIND ALL ONES IN REACHABILITY SET OF ELEMENT n\ 

2 DO 3 KM/N 

lF(.NOr, HATRIXd/KJ) GOTO 3 

FOUND A '0NF# KEEP A RECORD OF IT 



NONES • NONES ♦ I 

* RECHRDINONES) • K 



erJc 



333 



57 



5^ . • - 

60 3 CONTINUE 

61 L * . 

6^ i CHECK T) SfE If ANY NEW ONES WERfc AOOED FRUM i AST 

63 C TIME THanUGH 
6<. C 

65 IFiNONES .EO. lAST) GOTO I 

67 : N(l. COHPJTE NEW ELEHENTS IN REACHABILITY SET Ml 

68 L EICHENT HI BY TRANSITIVITY 

69 C 

70 LAST • NHNES 

71 C 

72 C THE NEXT OPQUp OF CODE PERFORMS THE PROCESS: 

73 C IF MAT«Ixn#K).l .AND. MA TR I X ( K/ J ) • I / 
7<» C THEN MATRIX^ IiJ)»l. 

75 C 

76 DO 4 L«l>NnNES 

77 K ■ RECORDU) 
76 DO ^ JM>N 

79 MATRlxn^J) • HATRIX(WJ) .OR. MATRIX(K/jK 
BO ^ CONTINUE 

61 C 

62 C KEEP GOING UNTIL ALL REACHABILITY SETS HAVE BFEN EXAMINED 

63 C 

BK NONES • 0 

85' GUTO 2 

86 C 

87 I CONTINUE 
68 RETURN 
89 END 
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SUflROUT INE 4UEDCE(N/REA,IM0EX/TTYIN/TTy0UT,SYS) 

THIS SUBROUTINE ADOS AN EDGE ON THE HINIMUH EOCf DIGRAPH 

WRITTEN BYi OAVIO R. YINGLING# JR, 

ENGINEERING AND PUBLIC POLICY GROUP 
UNIVERSITY OF DAYTON 
DAYTON/ OHIO 45^69 
513-228-2238 



VARIABLE NAME 
N 

REA 

INDEX 

TTYIN 

TTYOUT 

SYS 



DESCRIPTION 

NUMBER OF ELEMENTS IN "REA" 
ARGUMENT REACHABILITY MATRIX 
INDEX SET FOR "REA" 

FORTRAN READ UNIT NUMBER FOR TELETYPE 
FORTRAN WRITE UNII NUMBER FOR TELETYPE 
DIMfNSION SIZES OF SYSTEM MATRICES 



Nl 
N2 

II 
JJ 



INDEX VALUE OF ORCINATINC EDGE ELZMENT 

INDEX VALUe OF DESTINATION EDGE 
ELEMENT 

SUBSCRIPT OF "Nl" ON "REA** 
SUBSCRIPT OF •»N2" ON "REA-t 



implicit imteger»2 (a-2) 
integer u, index 
logical found!/ f0un02 
logical*! rea(sys/sys) 
dimension inoex(sys)/ nums(2) 

ask user for a reaches to b 

writecttyqutmoo) 
i call getnum(nums/2/ttyln/tty0ut) 

Nl • NUMSd) 
N2 • NUHS(2) 

IF(NI .EQ. 0 .OR. N2 .EQ. 0) GOTO 2 

CHECK TO SEE IF Nl AND N2 ARE IN SYSTEM INDEX 

CALL F iNOt T(N,NUN2/ I I / J J/ I NOEX/ FQUNOU F nUND2 > S YS ) 
iFtFOUNOl .AND, F0UN02) GOTO 3 

Nl ANP/OR N^ NOT IN SYSTEM INDEX 

!F(.NOT, rOJNDU WRITE(TTY0UT/10l) Nl 
IF(.MOT. FnuN02) WR I TE ( T TYQUT/ lOD N2 



ERLC 



340 
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ERIC 



5) l.UTiJ i 

61 I PUT IN EDGE 
6^ C 

6) ) REA(lUjj) • «TRUE, 

64 OOTU I 

65 c 

6% C PE'^fDRH TJ^ANSITIVE ClOSURE 
bl C 

66 2 CALL TRP4CLSCN,REA,SyS) 

69 RETURf»« 

70 C 

71 I FORMATS 
7^ C 

73 100 FORHAT I 22H-TYPE <A REACHES TQ B>) 

74 lOl FORMAT ( l2H^#^fERR0R**^/ I5^20H NOT IN SYSTEM INDEX) 

75 ENO 
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o 

ERIC 



I 
2 
3 
k 

6 
7 
B 

10 
11 

\^ 

13 



15 C 



16 
17 
IS 



19 C 

20 C 

21 C 

22 C 

23 C 
2^ 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
3^ 
35 
36 
37 
38 
39 
^0 
^1 
^2 
^3 
4»4 
45 
46 
47 
48 
49 

50 C 

51 C 
^7 C 
53 
54 

55 C 

56 C 

57 C 
58 



SU6RUUT INE E«EOCE(roREA/ INDEX/ TtY IN/ TTYOUT, SYS) 

THIS SUBROUTINE ERASES AND EDGE ON THE MINIMUM EDGE DIGRAPH 



WRITTEN BY: 



DAVID R. YINGUNC/ JR. 

DEC ISIUNS SYSTEMS LAB 

ENGINEERING AND PUBLIC POLICY CROUP 

UNIVERSI TY OF DAYTQN 

DAYTON/ OHIO 45469 



N 

REA 

INDEX 

TTYIN 

TTYOUT 

SYS 



Nl 



N2 



number of elements in "rea'' 

argument reachabilitv matrix 

index set for "rea" 

Fortran read unit number for teletype 

Fortran write unit number for teletype 

DIMENSION SIZES OF SYSTEM MATRICES 



INDEX VALUE OF ORGINATION OF EDGE TO 
BE ERASED 

INDEX VALUE OF DESTINATION OF EDGE 
TO BE ERASED 



IMPLICIT INTECER*2 i A-n 

INTECCP N/ INDEX/ INOM/ NN 

LOGlCi^i. FOUNOl/ F0UND2 

LOGICAL^I REA(SyS/SYSI/ REAH( 128/ |28 ) 

DIMENSION INDEX(SYS)/ INDH(128)/ L0(128)/ NUMS(2J 
••••NOTE 

THE DIMENSIONS OF "L0«/ '•INOH"/ ♦"REAH" SHOULD BE EQUAL TO "SYS**, 



ASK USER FOR A REACHES TO B TO BE ERAffD 

WRI TE( TTYOUT/ 100) 
I CALL GeTNUM(NUMS/2/TTYIN/TTY0UT) 
Nl • NUMS( 1 ) 
N2 ■ NUMS<2) 

1F(N1 «EQ« Q ,0R. N2 .EQ, 0) GOTO 2 

CHECK TO SEE IF Nl AND N2 ARE IN.SYSTEH INDEX 



CALL P INDIT(N/Nl/N2/ I I / J J/ I NOE X/ ^ OUNDl / F0UND2 / 5 YS )' 
IFCFOUNDI .AND, F,0UN02) GOTO 3 ^ ^ 

)fc HST) 



Nl AND/OR N2 NOT IN SYSTEM INDEX/ ISSUE ERROf 
1F(»NQT. FnUNDl) WRITE(TTY0UT/10l) Nl 

U2 



I 

/ 
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60 




M 


c 


62 


c 


6) 


c 


6<* 


c 


6^ 




66 


' 


6 7 


c 


68 


I 


69 




70 




71 


i 


72 


c 


73 


c 


If* 




75 




76 




77 




78 




79 


c 


80 


c 


81 


c 


62 




93 




6<» 


c 


89 


c 


86 


c 


87 




86 




8^ 




90 


c 


91 


c 


92 


c 


93 


c 


9h 




99 


c 


96 


c 


o 


c 


9tj 


r 


99 




100 




lOl 


1 


102 




103 




10* 




105 




10*' 




107 




108 




109 




110 




111 




112 




in 




lu 




115 




116 





IFi.NJT. F11J402I WRI lEiFTiruuT/lOl) N2. * 
i PEtDAN , . 

•i * 

UK, rrjw CHPCK FUR CYCIES 

VAKIABIC NAie DESCRIPTION 
1 lF(,NOi. (REACn^JJ) ,AND. REACJJ/IDM CHTU . <i 

-<HJUPS^ Nl AND U'c ARE IN A CYCLt> ISSUE ERROR MSC 

.<RITF( TTY0'JTM02) Nl/ N2/ Nl 
:iOTO 2 

OK. CALCULATE SKELETOM MATRIX 
A NN • N 

CALL H I ERC MINN/ RE A/ INDEX, RE AH/ INDH/»NLHO/ SYS) 

CALL STA»4<NN/REAH/ INOH/NL/LO/SYS) 

CALL CUNDEINN/REAH/ INOH/LO>TTYOUT/ ,FAlSE;i>SYS) 

CALL SKLTNINN/ReAH/SYS) . ' 

CHECK TO SEE IF Nl AND H2 ARE ON MINIMUM EDGE DIGRAPH 

CALL F1NDIT(NN/N1/N2/ 1 1 / J J / I NDH/ F QUNO 1 /F OUND^/ SY 5 ) 
|F(F0UND1 .AND, FQUNDZ) GOTO 5 

Nl ANO/OR N2 WAS NOT ON MINIMUM EDGE DIGRAPH 

IF(.NOT. FOUNDl) WR I TE ( T TYoUT/ 103 ) Nl 
IFC.NOT. FnUNDl) WR I T£ ( T TYQUTi 103 ) N2 
GOTO 2 

CHECK TO SEE IF THE EDGE FROM Nl TO M2 EXISTS ON MINIMUM 
EDGE DIGRAPH 

5 IF (REAH( 1 1/ JJ ) ) GOTO 6 

THE EDGE FROM Nl TO N2 WAS NOT ON MINIMUM EDGE DIGRAPH 
ISSUE ERROR MESSAGE 

WRITE! TTYOUT/10^) Nl/ N2 / 

GOTO 2 ^ . 

OK/ Nl REACHES TO N2 ON MINIMUM EDGE DIGRAPH 

ELr^INATE REACHABILITY 9Y DISCONNECTING ANTECEEDENT SET 
OF Nl FROM THE REACHABILITY SET OF N2 

6 CALL F1HCMT{N/NI/N2/1I/JJ/1N0EX/F0UN01/F0UND2/SYS) 
REMOVE EDGE f'ROM L TO K IF i 

U L IS A MEMBER OF THE ANTECEEOENT 
OF Nl 

AND 

I, 

^ 2. K IS A MEMBER ()F THE REACHABILITY 

^ SET OF HZ 

34J 




SET 



117 C 

lis DO 7 f UN 

IFt.NQT. REAd/lD) COm 7 

120 DO 8 K» l^N 

121 \fi .NOT. REA( JJ,K) ) GOTO 8 

122 PEA(LfK) « .FALSE. 
121 a CONTINUE 

IZk 7 CONTINUE 

125 C 

126 C CALL TRANSITIVE CLOSURE 

127 C 

128 CALL TRNCLS(N,REA,SYS) 

129 CALL lO^N^REA, 1N0EX#10# .FALSE. ^SYS) 

130 COTh I 

131 C 

132 C FORMATS 

133 C 

134 100 FO^^MAT(35H-TYPE <A REACHES TO B> TO BE ERASED) 

135 lOl FORMAT( l2M-**tERR0R***# I5,p20H NOT IN SYSTEM I.>i)EX) 

13C) 102 FORMATi l2M-t**ERR0R***# AND#l5a6H ARE IN A CYCLE./7H "ELIM**, 

n37 ♦15#36M AND RE-ENTER USING THE •'BO*' COMMAND) 

138 103 FQRMATn2H-.^^tERROR***#15#3lH IS NOT ON MINIMUM EDGE OIGR^APH) 

U9 10<» F0RMAT(26H-^*^ERR0R*t* THE EDGE FROM#I5#3H T0#15#9H DOES NOT/BOH E 

UO ♦XIST ON MINIMUM EDGE DIGRAPH) 

l^l END 
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su'^o )a( I <C fHASt (N»Harp In, index, rir in, TtrOuT / , . > ) 



ERIC 









tHiS SURRJ'JTiNt AN 


EUMEHT FROrt ••MATRM**, 










b 


f 

L 




INCINECRING ANO PUBLIC POLICY CRDJf 


7 


C 




univcrsity or 


DAYTON 


A 

0 


L 
f 
I 




OAT TON/ UMlO 


<t5<*69 


1 0 


c 




VA«I&6lE NAMb 


DESCRIPTION 


1 1 


c 








I 2 


I 




N 


THE NUMBER OF ELtMINTS iN "MATRIX'* 


I ) 


c 








1 <• 


c 




MATRIX 


THE MATRIX TO ERAS[ THE ELEMENT FROM 


15 


c 








I 6 


c 






THE INDEX SET OF "MATRIX'', 


W 


c 






• 


19 


c 




T T Y IN 


FORTRAN READ UNIT NUMBER FOR TELETYPE 


19 


c 








20 


c 




TTYHUT 


FORTRAN WRITE UNII NUMBER FOR TELETYPE 


2 I 


c 








2 2 


c 




SYS 


DIMENSION SIZES DH SYSTEM MATRICES 


■> 1 
c J 


c 










c 








25 






IMPLICIT INTEGER*2 (A-Z) 




26 






INTEGER Hp INDEX 




27 






LOCICAL^I HATRIx(SYS/SYS) 




26 






LOGICAL FOUNOl/ FQUND2 




29 






OIMENSInN INDEX(SYS)/ NUMS ( 1 ) 


30 


c 








31 






IF(N .LE. 0) GOTO ^ 




32 




I 


HRITEnTYOUT/ 100) 




33 




2 


CALL GETnUM(NUMS/ WTTYIN/ 


TTYOUT) 


3^ 






I • NUHS ( I ) 


-V 


35 






IF(1 .EQ. 0) RETURN 




36 










37 






CHECK TO SEE IF « P IS A 


MEMBER OF THE INDEX SrT 


39 










39 






CALL F INDIT(N/ 1/ J/ 11/ J/ INDEX/ F0UN01/F0UND2/ SYS ) 


^0 






!F(.NOT, FOUNDl) GOTO 3 




^ 1 
^2 

^^ 






NUMBER WAS VALID ELEMENT 


NUMBER/ ERASE FROM MATRIX 








CALL EL IM(N/MATRIX/ INDEX/ 


Il/SYS) 








IF(N .LE. 0) GOTO ^ 




h 7 


c 
c 




GO GET /ANOTHER* 




^9 


^♦ 








^ 9 






GHTO 2 . 




50 
51 


c 




CRRPR PRINTOUT 




5 ? 

53 




3 


WRI TE ( TTYOUT/ lOl ) 1 




5^ 






GOTO 1 




55 










56 
57 






UStR HAS DFIETED ALL ELEMENTS 


59 




4 


WRITr( TTYOUT/ 102) 





6^ 



I 



5^ RETUR^4 

60 i 

61 C FOKMATS 

6? C 

63 100 F RMAT(36H-TYPE ELEMENT NUMBERS TO BE ERASED 7) 

6<» lOl FURMAT( IZH-**#ERRDR^**M5/20H NOT IN SYSTEM INDEX) 

65 102 FORMAT(53H^#*#N0TE#^^ THERE ARE NO ELEMENTS IN THE MODEL MATRIX/ 

66 ♦26H «6L1M»' CUMMAND TERMINATED) 

67 END 



34 



ERIC 



6 5 



SJiJMJUT r,E AUDkl (N#MA IK INDEX / TTYlN/TTYUUT/bYS) 



r^lS SUSROJTlNfc ADOS kUHENTS TQ THE^HAlRlX «maTR|X*» 
ANJ PUTS L -UNE" OM THE MAIN OIAGUNAL. 

NRITTEN by: OAVIO R. YINCLInG* JR. 

EMCirutRiNC AND PUBLIC PULICV GRlluP 
UMIVERSI TY nr DAYTON 
OATTON/ OHIO <i5<i69 



VARIABLE SAME 

MATRIX 

INDEX 
T T n fj 
TTYnUT 
SYS 



DESCRIPTION 

THE NUMBER QP ELfHCNTS IN "MATRIX** 

THE MATRIX TO ApO ELEMENTS TO 

THE INDEX SET OF "MATRIX", 

FORTRAN READ UNIT NUMBER FOR TELETYPE 

FORTRAN WRITE UNIT NUMBER FOR TELETYPE 

DIMENSION SIZES Of- SYSTEM MATRICES 



ERJC 



IMPLICIT INTEGER^Z (A-Z) 
INTEGER N/ INDEX 
LOGlCAltl MATRIX(SYS/SYS) 
LOGICAt FOUNOU F0UND2 
DIMENSION INDEX(SYS)/ NUMS(l) 

IF(N .GE. SYS) GOTO 5 

1 WRITE(TTY0UT/100) 

2 CALL GETNUMTNUMS/ l/TTYIN/TTYDUT ) 
I • NUMSdr 

IP(I tEQ, 0) RETURN 

MAKE ^URE THAT WE DON'T ALREAD HAVE AN ELEMENT § I 

CALL F INDIT(N/ 1/ J/ J/J# INDEX/ P0UNDI/F0UND2/ SYS ) 
IF(FOUNDl) GOTO 3 

ALL OK, ADO ELEMENT AND PUT A ONF 'ON MAIN DIAGONAL 



N 



» N ♦ I 
• I 



INOEX(N) 

ZE' 0 OUT Rnw AND COL OF NEW ELEMENT 
DO <i J« l#N 

MATRIX! J/N) • »FALSE, 
MATRIX(N,J) • ♦FALSE, 
M CONTINUE 

MATRIXIN/N) • »TRUE* 

GO GET ANJTHER ELEMENT s 



3^ 



66 



ERIC 



59 






1F(N .CE, SVS) GOTO 5 




60 






007U 2 




61 


C 




4 




tr2 


r 




ERROR PRINTOUT 




. 63 


L 








6-* 




3 


WRITER rTY3MT^ lOl) I 




65 






cuTn I 




66 


C 








67 


C 




USER HAS EXCErOEO SYSTEM MATRIX SIZE 




66 


C 








69 




5 


WRITE( TTY3UT# 102) SYS 




to 






RETURN 




71 


C 








72 


c 




FORMATS 


* 


73 


c 








7^ 




100 


FORMAT(28H-TYPE ELEMENTS TO BE ADDED ?) 




x75 




lOi 


FORMAT( 12M-#^<'ERR0R***# I5/2^H ALREADY IN 


SYjTtn INDEX) 


76 






FORMAT (6ZH-»*#NDTE*** NUMBER OF ELEMENTS 


HAS RTACHEO COMPUTER'S 


77 






♦^IT OF#15/25H -ADD" COMMAND TERMINATED) 




78 






END 
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9^ 67 



I'M. 11,1. I. * ( L »; 



ERIC 



S 

; 

\ 1 
1 ) 

7 



C 

^ C 

) c 
I I 

3 

?^ 

/ 

>B 

»0 
I 

► 2 

► 3 
»<• 

► 5 
»6 

/ 
>P 
)-) 

► 0 
>l 

7 



NOT Ufe., 

\il Rir.MfS REStRVEO, NO PART ur THIS PR□CRA^^ HAY BE SOLO# 
RfPMnJfn^ STOBfO IN A RfTPIEVAL SYSTEM, |)H TRAN!,MlTTEO 
IN ANt fjki OP BY ANY MLANS# ElECTROMIC, MfCHAMJCAl/ 
Pnj! };jPMriG, HFCi)ROlNC# OR UfHCRwlSE* WlTH'JUT iMf 
Pf2 I .)« Pf^'^lSSlON Of THE 

JHvfHSIlY uf OAYJON RESEARCrl INSHTUTE, 



PROGRAM CYCLL iSYSO^) 

PR^GPAH THAT INITIALISES A HEICHTEO MATRIX 

AND RESOLVES THE THRESHOLD WITH WITH GEODEDIC OUTPUT 



WRl TTeN \ 



DAVID R. YINCLINC/ JR. 
DECISION SYSTEMS LAB 

ENCINf-tRlNG AND PUBLIC POLICY CROUP 
UNI VERSI TY OP DAYTON 
DAYTON# OHIO ^5^69 
513-229-2238 



IMPLICIT INTEGER (A-Z) 

C(JMH^)N /[NFO^ QTYPE# TTYIN# TTYOUT 

CfJMMiJN /RLKl/ Ll(l6a)/ L2I160) 



1N0EX(50)# NUMSO)/ BULL<5704) 



AL/2HAL// DL/2HDL// F l/ZHPl/ 
RE/2HRE// TE/2HTE/# HELP/2HHE/ 
NU/IHN/ 



OIMENSnN lMt50/5O)/ 
LOGICAL QTYPE 
DATA CH/2HCH/# 
DATA PR/2HPR// 
DATA YC^/iHY// 

INIT lALIZATlUNS 

TTYIN » ^ 
TTIUUT" 2 
MW£|CH - 9 

orrPE . .TRUE. 

PFKMFL^ 20 

MAIN CUNTROL SECTION 



FULL TFXT ? 

WRirri TTYOUT/?) 

RE A0( r TMN. 3 I ANSWER 

n IA':SWF R YES) yTYPE « .FALSE, 

r<fw ^iYSTtM ? 

WRlTf ( rTY')MT,4) 

^:rAD{ TTr 3 ) ANSWER 



31.) 



68 



^0 1 

61 I irifU HCRT WHfN NEW SYbfEM 

6^ C 

b\ II wP lTt I TTyriuT^5) 

tt* . C Al I CE TNUrK fJUMS> I ) 

ftS N > 'UJMS ( I ) 

6s IF (N .Lf . 50) Gurn 12 

6/ >«Rl TE ( r Ttonr^ 7) 

68 b[)rn II 

ft V { 

fO ^ READ IN FROM PERMFL ULO SYSTEM 

71 t 

10 REWIND JO 

7^ MEAO(eO) N 

?♦ MEA0(20) IH 

n MEAD(20) INDEX 
COTU 15 

7/ C 

if\ C ASK IK USER WANTS REGULAR INDEXING 

71 L 

8J W CUNT INiiE 

81 ^' WRI Tb ( rTVOUT/S) 

ft*^ PEAO( rr YIN> 3) ANSWER 

fl^ IFIAr^SWER .EU* NQ) GUTQ 13 

8'^ L 

«S I PUr IN PPGULAR INDEXES 

8 7 on IM>N 
8R IN'IE < ( I) - I 
8*^ U LOmiNUF 

'^J GUTQ 15 

91 C 

I REAO IRREGULAR INDEXES 

I ^ co n iNUE 

'^S WR I TE ( rTYJiJT/9) 

^6 no IM/N 

CALL Gb TMJM( NUMS/ I) 

FNOF til) 5 NUMS ( 1 ) 

9 7 IF ( I ,E;J . I ) GMTO 16 

100 M « I - 1 

101 00 (4h J ^ 

10^ |F(INDEX(J) .EQ. INlEXd)) WR I T E ( T T YQUT,/ 1 0 3 ) INL)FX(I) 

KM ' IF(INDEX(J) .EQ, INl)EX(n) j • j ^ i 

in'4 4,6 CONTINUE 

105 16 CONTINUE 

I )6 L 

107 15 RE-^IND 20 

109 WRITE(?0) N 

101 WRITE(^rj) |M 

111 WRITE(^O) INDEX 

111 C 

11^ L BEGIN FILLING THE ADJACENCY MATRIX 

113 C ASK USER Ff)R A CfJMMANU KEYWORD AND CHECK 

lU C 

115 WR I TE ( r TY JUT > 10? ) 

116 RE AOi T T Y |N> 100) CMO 



6y 

Sou 



/ 











I s 






COh) 


I 7 




Al 1 


cor J 






F 1 1 


liOf n 


Z I 




01 ) 


our J 


^^ 




►♦UP ) 


cur J 


? i 


IF tC*^0 .F3, 


^i) 


Gor J 








euro 


:5 




PR ) 


Guru 










Z 7 


1 TE I T T YD'iT 


MOD 


CMi) 


zs 


GUT'J 15 







•7 c 
D C 
I C 

^ I 

3 

s c 

1 L 

8 

9 

0 C 

1 . 

2 L 
3 

^ c 

b c 

7 C 

a 

9 

0 c 

1 c 

2 C 
3 

5 C 

s c 

9 
9 

60 C 

C 

6^ L 

6^ 

6<» L 

65 C. 

66 L 
6? 
6ft 

69 C 

JO i 

y\ 



CHANGE WEIGHT ROUTINE 



I 7 CALL CHANGE (N, IM, INDEX) 



A.)0 CLEMENT ROUTINE 



16 CALL AOD(Ni IM, INDEX) 

Goro 15 



DELETE ELEMENT ROUTINE 



20 CALL OELETE(N,IHHNOEX) 
GUTD 15 



FILL SYSTEM WITH WEIGHTS 



19 CALL nLL(N# IMHNOEX^RURZ) 

Guro 15 



PRINT SYSTEM OUT 



^5 CALL PR^^TMT(NMMMNDEX^THRESH;tFALSE.) 
GOTO 15 



RESOLVE SYSTEM 



22 CALL RESULV(N,IM^ INOEX/MWEICH) 
GOTO 15 



TERMINAT ION 



23 CALL EXIT 



HELP J!t 



21 WRI TE ( T TYOnTMO/| ) 
GOTO 15 

it (i # ^ 0 ♦ 



? rn^MATMMO.lSM FUU TEXT O'JERIPS OfSlREO 7 (Y/n) ) 

:> 1 70 



Its ^ fOPMATtl \ fiCW SYSTfcn ? <Y/N) ) 

IM 5 Fi)J*'ma r t pi ^HM fjUMHkR OF ELEMENTS C50 HA<,) ?) 

W« f fU»MAT(| I •♦♦TUO LARC£# TRY ACMN^^*) 

IM fMMMATUM »«.6M P(GUL4R INDEXING tiF ELEMENTS DESlHtO ? (Y/N) ) 

18) ^ fn«HATUN wen F.NTFR INDEXES UNE AT A TIME) 

181 100 fU«MAT(AJ) 

182 lOl fl)RM4Ti |H.,)l>< ii«(HROR#i# INVALID C UMM ANO» • > , A2 ) 
I8i IU2 FU«^AT ( IM-, 1?H TYPt CYCLE CUMMAND ( '•HELP") ) 

I8<i 103 FOPMA[(Wl ,)<iN ELEMfNI HAS ALREADY BEEN tNTEReD>#I2) 

185 I0<i FUPHAT ( IN-, lOX, leMi^^MtLP ME 5 S A CE • • • / I HO # 30M AL - AOD AN ELEMENT T 

18^ ♦U SrSTEM/iH *35H 01 - DELETE AN ELEMENT FROM SYSTEM/IH F I F 

187 HLL SrSTF^ (/-SSIGN WEIGMT$)/IM /37H CM - CHANGE WEIGHT OF A RELATI 

aBB ♦!)N5H|P/pl ,?0H RE - RESOLVE SYSTEM/IM PR - PRINT SYSTEM OUT/l 

189 >23M TE - TERMINATE SESSION/IH ,Z1\\ HElP - REPRINTS ABOVE LIST) 

19D END 



71 



1 SUHJ^flun^il PKNiMf (N.MAT, INDEX, THMESM^SELPNT ) 

I? C 

1 C THIS SUflROtjTlNE PRINTS AL L RE L A T | QNSH I P S . f 
^ : in TME THRESMOlD 

s I 

; L wRiTipN nv: DAVID R. yimclimg, jr. 

e w DEC ISIMN SYSTEMS lAR 

^ : ENCINftRING AND PUBLIC POLICV CRl1ll^> 

10 L UNIVERSI FY OF DAYTOM 

11 L PAYTUN/ OHIO <>5^6^ 
\^ C 513-229-2238 

13 1 

14 IMPLICIT INTEGER (A-Z) 

n eUMMflN /INFU/ UTYPE/ TTYIN/ TTYOUT 
l^ L 

W INTEGER IS0LX(50)# MAT(5O/50)/ 'LlST(50/2) 

IB LOCILAL OTyPE/ SELPNT 

20 iFtSELHNT) WR ! TE ( T T YOU T > I ) 

21 C 

2? Ul) ID l«WN 

? ) L TR . 0 

2<« PO II J«l>N 

2^ IF(.NQT. SELPNT) goto 13 

26 IE(MAT(I,J) »LT. THRESH) GOTO II 

'27 n |F(I .EO. J) GOTO II 

2B CTR»CTR*l 

2^ LISTICTR,!) « INDEX(J) 

30 L IST(CTR,2) ■ MAT( I, J) 

31 II CONTINUE 

32 C 

3 3 lF(rTH .EO. 0) GOTO 12 
3<» C 

WRITE ( TTYOUT, 2) I NDE X ( I) , ( L I S T ( H , I) , L I S T (I 1/ P ) / 1 1 « l/CTR) 

3^ cnTf) 10 

^f i ' 

18 12 WR I TF ( TTYOUT/3) INDEXM ) 

C # 

<»0 10 CONTINUE 

41 RETURN 
<»2 C 

41 2 FORMATIIH , I 5,2Ht>^8( 7(15/ IH( > I l,2H)/ )/9X) ) 

3 FOKMAT( I2/2H->) 

45 I FORMAT ( 15X, 17H THRFSMHLD MATRIX) 

^.6 ENO 



35 



I 

2 
) 

5 
6 
7 
6 
) 
10 
I I 
12 
I 1 
l<< 
15 
U 
I f 
18 

21 
22 
23 
2<> 
2^ 
26 
27 
2B 
29 
30 
31 
32 
33 
3^ 
3^ 
3f) 
3/ 
Ifl 
37 
40 
<il 
<i2 
43 
4 4 
45 
4f> 
4 / 
48 

4 9 
51) 
51 
5^ 

5 ^ 



SUI»tt Jj! pit 5UESr (U W IL2) 

TMIS SUrtRQiJTlNt PRESENTS THE QUESTIONS 



»<R I T FEN BY : 



OAVID H. YINCl ING> JR. 

OCCISlUN SYSTEHS LAD 

ENGINLERING AND PUBLIC PQUCY CROUP 

UNI VER5I TY or DAYTON 

OAyTUN# OHIO 45469 

513-229-2238 



IMPLICIT INTEGER (A-Z) 

Cn^^HDN /INFJ/ OTYPE> TTYIN# TtYHUT 

(,UMMON /BLKl/ 11(160)# 12(160) 

LOGICAL QTYPE 

1F(QTYPEI GUTU 15 

DEFINE FILE » ( 2 60/ 1 60/ U, UNUSE 0 > 

I I = LL 1 ♦ 4 
12 a LL2 ♦ 4 

READ! 8' 11) (Ll( H/ I»U 160) 
REA0(8» 12) (L2( I )/ I-U 160) 

II « 0 
12 - 0 

on 12 J-l/lO 

1F(LI(J) .EO. 0) GOTO 12 
L ■ Ll( J) 

I 1 • 12 ♦ I 

12 II ♦ L - I 
WR1TE( TTYQUT/2) 

12 CONTINUF 
WRITFI TTYOUT/3) 

II = 0 
12 « 0 

DO 1 3 J » W 10 
IF(L2(J) .EQ. 0) 
L » L2 ( J) 

11 » 12 ♦ I 

12 » 1 I ♦ L - I 
WRITE(TTY0UT>2) 

13 CONTINUE 
WR 1 TE( r TYOUT> I ) 

14 RETURN 

15 NRITE( TTYOUT/4) 
GOTO U 



(LKK ♦ 10)>K - IUI2) 



GOTO 13 



(L2(K ♦ 10)^K ■ ll#.I2) 



LLW LL2 



^ F fJRMAf ( lOH WE IGHT ? ) 
, FdRMAf ( \t, ISA<,) 

3 rnWMATCIH ,20H MAS BEEN RELATED TO) 
^ ri)RHAT( IXM5/2H R,|4^VH WEIGHT ? ) 

ENU 



ERIC 



35 t 



73 



ERIC 



I SUl^MfJUTnf AUO(N/MAT/ INDEX) 

^ C ' 

3 C THIS SUORClUflNE ADDS ELEMENTS TO THE ADJACENCY MATRIX 

L 

C WRITTEN BY: DAVID R. YINGLING^ J«t 

C DECISION SYSTEMS LAB 

7 I ENGINLERINC AND PUBLIC POLICY GROUP 

B L UNIVERSITY OF DAYTON 

^ C DAYTON/ OHJO U^<iby 

10 L 513-229-^2238 

11 L 

12 IMPl KIT INTEGER (A-2) 

n DIMENSHIN NUMSO)^ MAf|50/50)/ IMDEX(50) 

u c 

n COMMMN /BLKl/ Ll(l60)/ L2(l60) 

16 COMMON /INFO/ QTYPE/ TTYJN/ TTYOUT 

17 DATA Nnil/IMN// N0/2HN0// Y/lHY// YES/3HYES/ 

18 C 

19 LOOICAL FOUNDl/ F0UN02^ QTYPE 

20 L 

21 C 

2? C ASK FUR ADOEi) ELEMENT NUMBER(3) 
23 C 

2<i 2 WRI TE ( TTYOUT/ \06) 

2* CALL CEtNUM(NUMS/ D 
2b « N ♦ I 

27 INDEX (N) « NUMS( I ) 

?B IFdNDEMN) .LE. 9999) GOTO I 

29 WRl TE ( TTYOUT/ lOo) INOEX(N) 

30 12 N » N - I 

31 GOTO 2 

32 C 

31 C CHECK For a lERO INPUT 
3<» C 

3"^ I IF(IN0E<(N) .GT. 0) GOTO 3 

3f) ^4 • N - I 

37 RETURN 
3B C 

39 f CHECK FHR RUPLICATE ELEMENT 

hO C 

4 1 3 K • N - I 

4 2 CALL F I NO IT (K^ I NDE X ( N ) / J/ J/ J/ I NDE X/ F OUNOl / F 0UNn2 ) 

43 IF(.NOT. rnUNOl) GOTO II 

4<i WRl TE ( TTYOUT/ lOl ) INOEX^N) 

45 GHTQ \2 

46 II CONTINUE 

47 C 

48 L SEE IF USER WANT-S TO BORDER 
41 C 

•^0 WRlTE(TrYCjJT/l02) 

11 PEADI TTy IN, 103) ANSWER 

52 iFIANSWfR .EO. Y) C(jTO 4 

5J iFIANSWfR Y(S) GijTll 4 

5«f IMANSwfO ,('J. NOO) OflTO ? 

55 IF ( AUSi^fR .EU. NO) GUTll 2 

56 WRl rn T rvrjUT/ 104 ) ANSWF:R 
5f MUO ? 

9^ S'^^'i 



7ti 



5^ I UllKfM R I'iPill 

6j C 

61 <i uu ^ J • I #»< 

6^ 6'CALL QJtSf iP'Otxi I )^ IHUEX(N)) 

(S) CALL G( TN'JH(riUMS, I) 

6<« h( ICmT s rj|ilS( I ) 

66 V « I in T T yUUT # 105 > WEICMT 

6; CUTf) 6 

6S 7 MAT ( I »N) r i4L IGHT 

6> ^ Ctrn I^4JL v 

/I I'l*** 

'U 9 CALL Q'Jt'iTc INDE J^IN)/ INDEXCD) 

73 CALL CETNLNn^UMS/ I ) 

7<# WE iGrIT « NiJHSI I ) 

75 1F(WFIGMT ,lE, 9) GUTH 10 

76 WRITE (TIVOUT/IOS) WEIGHT 
11 GlHU 9 

79 • 10 M<^T (N, I ) > WE ICHT 

77 8 LU'IT INJE . 
8J -(.UTi) 2 

ai C ^' 

6? C 

83 C FORMATS 

8<» C 

86 100 FQMAK IM0,?2M ♦••ELEMENT TOO L ARGE > M 5 # 3H««« ) 

87 iOl FORMAT I IHQ, 30H •♦♦ELEMENT ALREADY IN SYSTEM>/ I ^((♦♦^ ) 

88 10^ FORMATCIH ,3lM BORDER UN THIS ELEMENT T ^Y/N)) 

89 103 F0RMATU2) 

90 iOM FORMATflH »?IM ♦♦♦INVALID RESPnNSE>/ A2/ 3H^^^ ) 

91 10^ FUR'^AT(lM ,28H ♦♦♦ WEIGHT VALUE TOG L ARGE I 5# M'* * ♦ ) 

92 \0t FORM&KIH ,29H EL£M£.n NUMBER TO BE ADDED t) 
9 3 TND 



3d J 



ERIC 



75 



ERIC 



2 


C 


3 


L 


» 


C 


5 


I 


6 


c 


7 


L 


fl 


L 


9 


C 


10 


( 


1 1 






L 


I ^ 


I 


1 




I *> 




1 6 




I / 


L 


1 R 






C 




I 


? I 




2^ 




2 3 




2 <• 




2 5 




26 


L 


2 7 


C 


28 




2? 




30 


C 


31 




32 


L 


3) 




3^ 


C 


35 


C 


3S 


L 


3 7 




38 




3 9 




<i ) 


♦ 


I 




^2 




^) 


C 






^5 




^6 




4 / 


c 


^ 9 




^9 




50 


c 


5 1 


t 


52 


c 


5 3 


L 


5<i 


I 


5^ 




5^ 








5B 





SUHRUUMNE chance (N/MAT, IMDEX) 

THIS SUePUilTlNE WILL CALLOW THE USER TO CHANCE 
A WHCmT n IHE ADJACENCY MATRIX 



wR I [TEN : 



100 
lOl 
102 



DAVID R. YINCLINC/ JR. 

DECISION SYSTEMS LAB 

ENCINEERINC AND PUBLIC POLICY GROUP 

UNIVERSI I Y or DAYTON 

DAYTOr^^ OHIO <»5^69 

513-229-2230 



|MPl IC IT iNTtCER (A-Z) 

DiMFNSinN MAF(50>50)# INDEX(50)> NUMSO) 
COMMMN /INFO/ QTYPt/ TTY1N> TTYOUT 

LOGICAL FOUNDli FOUNDZ 

WR I TE ; T TYDUT/ 100) 
CALL GETNUM(NUM5i 3) 
COTO 6 

CALL CETN0M(NUMS>3) 
CHECK 'rO^ ZERO INPUT 

IF(NUMSll) .CT, 0 .AND. MUMSC2) .GT. 0) GOTO 8 
RETURN 

CHECK FHR EXiSTANCE OF ELEMENTS 

CALL F INOIT (N,NUMS( I )>NUMS( 2 )>X>Y> I NDE X> F OUNO I > FOUNDZ ) 

DID WE GET A VALID INPUT 7 

|F(F0UND1 ,AND. F0UN02) GOTO 3 

IMY ,EQ. 0) GOTO <» 

WRI TE ( TTYOUT^t lOl ) NUMS( I ) 

ir(Y .GT. 0) COTO 5 

WRITE ( TTYOUTMOl) NUMS(2) 

GOTQ 5 

IF (NUMS(3) ^•tfE. 9) GOTO 7 

wR I re ( T Tyoijr> 102 ) nums( 3) 

GUTn 5 

MAT ( t,i ) « NUMSI 3) 

Gi)Tn I 

FORMATS 



FfJHMAT(lv| ENTER A REACHES Trj WEIGHT (3 NUMBERS)) 

FfJRMATtp^ •♦♦ElEMEfH OOt S NHT E X I ST> / | 5> 3H* ♦ • ) 

FOPMATdM WHH •♦•WEIGHT VALUE TOO L ARGE>/ I 5/ 3H#^# ) 
ENIJ O !.: » ' 

76 



I 

s 

7 
R 

1 1 

\l 

n c 

U (. 

l** L 
15 

1 ' C 

le (. 

17 c 
21 
? ^ 
2^ 

i 

2 / 
2B 

2 ? 

3 J 
M 
32 
33 

3S 
4^, 
3 1 
3^] 
3^ 
<iO 

<•! C 

<»2 

<«3 

^I'f : 
<»5 C 
<•^ L 

<i ^ c 



I. IMM ,'4 i\u^M OTtPl# TIYpO tlYMUT 



uHiU 41 f;j r<uii found? 



I CALL Of ^NUH(NUMS/ 1 ) 
IS IT ZERO ? 

IP rn)HS( I ) .[Q. 0) RETURN 
FLFMFNT n StT ? 

CALL F INPI T(ri,NUMS( I Ji I# J, F N06 F OUND U «^OUf;n/ ) 

IF (FdUNOl ) t;OT0 3 

WR 1 TE ( T TYUUT/ 100) NUM5 ( I ) 

coin I 

3 IF ( I .E3. N) GOTO 

N3 ' N - 1 
[Ml K1H/N3 
K 2 - K I ♦ I 

^^Ar(Kl> J) > MAT(K2i J) 

6 CnNTTNUE 
on 7 J=l/N 

MAT ( j,K I ) « MAT ( J/ K2) 

7 CC3NTINUF 
5 CONT (NUE 

DU 8 K I ^ 1 ,>43 

K 2 T K I f I 

INDEXIKI ) :i lND^y(K2) 

8 CONTINUE 

k U * H - \ 

coTn I 

FQkHATS 

100 FORMATllH ♦MELfMENT DOES NOT E X I 5 T > , I 5 > a • I ^ ♦ ♦ ) 

101 FUKMAniM ,30H ELEMENT NUMBER TQ BE ERASED ?) 

END 




11 



!>UBllilur INF F ILL ( hiMAT# INUEX^KI #R<> ) 

THIS SURRUUrJMt AUUWS THE USER TO FILL UP TMr ADjACFNCY MATRIX 



I r r [M r)Y : 



la I 



10 



OAVIO R. YINCLING# 
DEC ISIDN SYSTEMS LAb 
ENClNttRING AND PUBLIC 
UNI VERS! fY OF DAYTON 
UAYTUN# OHIO <,5^69 
51 



IMPI KIT INTEGER (A-Z) 

OlMeNSKlN MATi50#50)# INDEX(50)# NliMSO) 

CUHM'IN /INFO/ OTYPt* TTYIN# TTYOUT 

rilMMnN /DLKl/ L1(160)# L2C160) 

lUOK AL orYPt 

SEE IF THIS IS A RESTART 

IFiRl .GT. 0 .OR. R2 .CT. 0) GOTO \ 
ROW » I 
ICIL ' I 
Rl » 0 
R? ' 0 

1)0 2 I »Rnw,N 

DO 2 J«COL#NI 

IF(I .fQ. J) GOTO 2 

CALL QUE!^T( INOEXt I)* INOEXU) ) 

CALL Ct TNJH(NUM$M ) 

1F(NUMS(1) .EQ, 10) GOTO 3 

IF(NUMS( I ) .LE, 9) GOTO <• 

WRl TE ( TTYOUr^ lOl ) NUMS( I ) 

MAT ( I , J ) s h<UMS( I ) 
CUNT INUF 

Gurn 6 . ^ - 

RFSTAR r 

I - Rl 

DO 7 J^R2>M 

CALL QUCSTMNOEXJ n# INOEXU) ) 
CALL CE TMUM( NUMS/ I I 
IF(NUiSll) .bO. 10) GOTO % 
IF(NUHS(l) .18. 9) GOTO 9 
*4RHr ( r TYUliTi lOl ) NUMS( I ) 



POLICY GPUUP 



Gflfd 
MATt I 
CUNT I 

nnw ' 

CUL 
R I " 
He' ^ 

r/)Tn 



B 

# J ) 

NUE 

I 

R I 

0 

{) 

11 



« NUMS(l) 



\ 



(ifNfRArr RrSTART PARAMS 



3' 



♦ J 



78 



5^ ) Ml I 

<S ) P ^ « J 

6? C 

67 loo > ^^HiT n'»:f, nwHR ,i5*iom/ «ErcHr ?) 

lOl FJ-<HAril.< ,^8H ♦••wEICiMT VALUE TOQ I ARCE > # M # M ^ ♦ ) 

67 fWl) 



74 



SUHRiur \ FINUI TIN^N WN^/ Sl/S2> lNOEX#FUUNDl#I^UU'ai/ ) 
THIS SUBfllOiiTlNE TINOS ELEMENTS H\ , N2 IN THE INDEX SfT 



THE VALUES SI, S? ARE THE PUSITlUNS OF Nl AND N2 IN IMF 
INDEX SET. 

FUUNDl AND FUUN02 ARE LOGICAL VALUES AND ARE SET EOU^L 
TQ .TRJE, IF Nl 0« N2 (RESPECTIVELY) ARE FOUND IN iMt 
INDEX SFT, 

W-RJtTEN BV: OAVIO «• YINCLING/ JR. 

DECISION SYSTEMS LAB • * 

ENGINEERING AND PUBLIC POLICY CROUP 
UNIVER5I TY OF DAYTON 
DAYTON, OHIO ^3<»69 
513-229-2238 

IMPLICIT INTEGER {A-l) 
DMf NSIHN INOEX( 126> 
LOGICAL F3UNUl# F0UND2 

rilUNDl .FAL6E • 
ruUND2 » .FALSE, 

51 0 

52 = 0 

DO I I»l/N 

IF (Nl .FQ. INDEXt I) ) 51 « I 
IMN^ u^DEXI I ) ) 52 « I 

fONTlNUF NCL 

IF (SI .or, 0> FOUNDl • . TRUE. 
1F(S? .CT, 0) FllUNn2 • .TRUE. 
RE rijRN 
END 



^ * NUS Suf^ti ):ir iNk •<IU «C4a ^•N- unsicmco inteceks frum 

. > TMl TfPUNAl TYPED IN A fREE FORMAT AND STDRt ThCM IM 

5 C ** Afl P A I 

6 I 

y . ^»<|TTiN ^t: DAvlD R, YINCI|MG# JR. 

1 I DEC ISlUN SyST£«iS LAB 

^ C ENClNlERr^C PUBLIC POllCY CUUUP 

I J UNI VERS I 1 ¥ llF DAY Ton 

II C OArTljN* umu <»5<»69 

I) L 

U MPllCIT INTEGER (A-Z) 

n CJ^MllN /INFJ/ OTYPE# TTYIN# TTYOUT 

l^ nlMtUSI(3N ARHAV(l), BUFFER«80)# NUMSCIO) 

1/ DATA NlIMS/ IHO, IH I WH2# lH^# 1H7# lH3# lM9/ 

IB DATA BLAMK/IM i, COMMA/IH// 

n c 

20 00 6 IM/N 

l\ AR'^ AY( M 2 0 

I? B CONTINUE 

?^ C 

2<» I REAn( TTYIN/200) BUFFER 

2S C 

2^ . I = N 

27 PlwER =0 
29 C 

2^ no 2 l«l#80 

3a , K « Bl - 1 

31 IF(BUFFeR(K) .EO, Bl ANK ^OR. BUFFERU) .EQ. COMMA) GOTO 3 

32 C 

31 I FOUND A CHARACTER# S^E IF IT»S A VALID NUMERIC 

3<i L 

35 on ^ J»l, 10 

35 N » J - I 

3/ IF<RUFFER(K) •NE. NUMS(J)) GOTO ^ 
3B C 

39 I ITS A NUMBER^ ADD IT TO PRESENT SUM 

AO C 

Al ARrtAVd) r ARRAVU) ♦ HI ♦ UO^^POWER)) 

<»2 POWER e POWER ♦ I 

A3 OflTn 2 
AA A CONTINUE 
A5 C 

A5 C COMF HERE |F CHARACTER FOUND WAS NOT NUMERIC 
AT L ' 

A8 WR I TE ( TTYHUTMOO) 

A? GOTO I 

50 C 

51 ^ FOUND A 0EIIMITFR# SEE IF ENO OF A NUMBER 

52 L 

5J 3 IF(ARRAY(L) ,FU. 0) GOTO 2 

5<» I ■ I - I 

55 IF (L .ro, 0) OnTO 5 

56 ARrtAY I t ) :t 0 
5r PfJWfR :: 0 
5(1 2 LITNTINJE 

9^- o/>- 81 



0 



ERIC 3Bv 





\» 








6D 






MAKE SURf NUMBER'S) IS/ARE lESS 


THAN 99999 SD 


M 


L 




WE HON' r EXCtEO 15 FORMATS 




6^ 
6^ 






UO 6 f M # N 




6<» 






iFlARRAVil) ♦CT, 99999) GOTO 7 




6^ 




6 


CO <T INUE 




66 






RE Turn 




67 










6B 


L 




tRMOR firSSAGE 




6^ 


(. 








7 0 




7 


WRITE 1 r lOl) 




71 






GOTd I 




7? 


w 








73 


C 




PQRMATS 




7c, 


c 








75 




100 


f QRMAT ( 3 /H-.>**ERROR*«* INPUT NOT 


NIJMERIC--RETMY ) 


7J> 




lOl 


FORM AT ()1H- ♦•♦ERROR NUMBERS S) 


TOO LARGE--R^ TRY) 


7 7 




^oo 


FORMAT ( 80AI ) 




78 






END 





ERIC 



L TMIS !>J^o:]i,T If4£ ftESUtVES TH£ WEICHtFO MATRIX 

r 
V 

(il^Mr^ MNfO/ QTYPE, TIYpi, TlYOilT 
I 0'. I C At AD J Mo, 50) # OTYPE# RH( 5»), 50) 



I T « Tm«ESH 

I c 

^ C CONSTRUCT RINARY ADJACENCY MATRIX 

<• C 

5 15 DO 10 I M 

6 Oa 10 JM #N 

7 AOJ(I,J) . .MLSF, 

8 IF(I .Eg. J) CUTO U 

9 IF(|^4(I>J) .LT, T) CUTO 10 

0 i I ADJ( I, J) a ^ TRUE. 

1 10 lONTlNUF 
I C 

3 C CHECK ir CYCLE IS RESOLVED AT THIS THRESHOLD 

<> L 

5 CALL TRNCLS( AQJ/RM^N) 

6 C 

1 C CHECK TO SEE IF REACHABILITY MAT IS 

B C ALL ONES, IF SO, CYCLE 15 RESOLVED 

C IF NUT, T » T - I AND CONSTRUCT NEW AQJ MA RIX 

0 C 

1 DP I? IM^N 
I on 12 J»I»N 

1 |F(.NOT. RM(I,J)) GOTO 13 

<i 12 CONTINUE 

5 C 

^ C TELl USER CYCLE IS RESOLVED 

^ C 

0 WRI TE ( TTYOUT/ I) T 

9 C . 

0 C PRINT UNIVERSAL MATRIX 

1 C 

2 CALL PRNTMT(N,IN#LIST#T,.TRUE, ) 

3 C 

<i C PRINT GEODFOIC OUTPUT 

^ L 

!) CALL GEOD( AOJ,N,L I ST ) 

; RETURN 

B C 

^ L NO GHUD, : Y AGAIN 

O C 

1 I J T • T . I 

2 OilTn I'S 

> I ri)RMAT||M-,» ♦♦•CYCLE RESflLVEO***^/// » T HRE S»<MI > S 2X/ I 2 ) 

S i,ND 



ERIC 



36 



83 



ERIC 



H THIS SJ3RI]UTINE TAKES THE TRANSITIVE CLOSURE 

^ I HP^ ^UT A AND PUTS THE ANSi<ER INTU MAT 

5 L 

6 SHPl K I T INTEGER 

7 INTEGER C ( 50) 

8 LOGICAL A(5O,50)^ B(50#5O) 
7 L 

10 nn I IM/N 

11 OU I JM#M 

I? I B( I> J) = A( 1/ J) 

I ^ ; 

1^ I « 0 

2 Hi ^ 0 
\b NT x 0 

17 f » I ♦ I 

19 IM I .CT . N) RETURN 

I > 5 DO 3 K = U N 

^^ IP ( .N-JT . B(I/K) ) CUTO 3 

21 NT * ST ♦ I 

22 C(NT) - K. 
21 3 CONTINUE 

2<« C - , 

25 t 

?i IFiNT .EQ, Nl) GOTO 2 

27 C 

2B Nl » NT 

29 00 L» I #Nl 

30 K • C(L) 

31 00 <i JM#N 

32 IF (B(K, J ) ) B( I# J) • .TRUE. 

33 C 

3<i NT « 0 

3S GOTO 5 

56 END 



3"'. 



^> 
/ 
rt 

9 

I J 
1 1 
I? 

16 
I 7 

1 B 
19 

2 J 
21 
22 
23 
2<» 
2^ 
26 
2 7 
2S 
29 
3j 
31 
32 
33 
3<f 
3S 
3J) 
37 
3B 
39 
<iO 

1 

^2 
43 
44 
45 
4^ 
47 
49 
49 
50 
51 
52 
5 ) 
5^ 
5S 
5f) 
5 7 
5B 



THIS SuA«,}Mrir4t PRIfUS OUT GEODEOIC CYCl£S 
flJMHiN /INFT/ QTYPe* TTYIM/ TTYQUT 
iHPi KIT rUECER (A-Z) 

ISlfOfR B<S)/50)# C(50#53)/ C(5O*50l# LIi'*M50) 
ISTpGEP rnCx(50)* fRlNT(50) 



PATA G/25O0^O/# 



DO 10 IM/N 
DO 10 JM#N 

in .NOT. A( J/I )) GOTO 10 
R( J# I ) = I 
G(Jfl) = I 

IF( J .EQ. I ) G(J, I ) « 0 

10 CONT HUF 

FORM G 

11 DO 12 I = l/N 
no 12 J» I #N 
C ( J # I ) » 0 

no n K= i,N 

MA « 0 

IF ( A( J,K ) ) MA « I 

13 t ( Jt I) > ^A ♦ BiK# 1 ) ♦ C( J/ I) 
IF (C ( J# I ) .NE . 0) C ( J/ I ) » I 

12 CONTlNUt 

COMPUTE TO THE NTH 

NBN » NBN ♦ I 
DO 14 1 M^N 
00 14 JM/N 

G(l#J) ^ G(!/J) ♦ HBN » (C( N J) 

14 P ( I > J ) X C ( I > J ) 

IF(NBN .LT. N -I) GOTO 11 

PRINT HEADING * 

WRI TF ( TTYUUT/ 1 ) 

COMPUTf PATHS 

NCPT « 0 
00 iGP.-.^/N 
LIH , ICP - I 
DO 16 JCPM*L1M 
MB ^ G( I CP# JCiP ) 
flA « G( JGP# ICiP ) 



B( I> J) ) 



ERLC 



36-,. 



85 



5> . IF(NA .F'J. 0 .UR. NB 0) GOTO 16 

61 LlJfKNBmi > ICP 

|F(NO -GT, I) GOTO 17 

^3 C 

6* NBNQ a MBNn ♦ I 

6S llUNtNtiJO) ^ JGP 

fct) (UlTn 21 

6 7 C 

wP Ml ( TTOUT^a) NB/IGP/JGP 

6J GDTil 

7:) 17 LHM = N3 ^ I 

M LASr = 0 

7^ I'D ?0 IN'ULMM 

73 N8*iD ' NBND ♦ I 

7^ IIDNINBND) = S0TR(G/lGP,NB-IN/JGP/IN/IX/N/LA5r) 

lASr » LlDN(NBND) 

7n 20 |F(IX ,E0. I) GflTLl 19 

77 C 

78 NBfJD « MBNO ♦ I 
7^ 11L>N(NB'4D) > JGP 

83 IFInA .r,T. I) GUTO 22 

ei LIONINBNO^I) » IGP 

fl^ ouTn 21 

2^ WRITE ( TTyonT/2) NA>ICP/JGP 

85 GDT(] 23 

8*> C 

8 7 2 ' IMN s ^|A - I 

88 LAST » 0 

89 DU 25 INM,LMN 

9:) t\^r\[) « MRNH ♦ I 

LIDN(NRND) « NOT R ( C/ JGP / NA- I 1 CP , 1 N# I X/ L A S I) 

92 LAST ' LION(NBND) 

93 25 |F(1X .EOi P GCITO 2^ 
9% C 

95 LlDN(NBNi>*l) » IGP 

9b 23 CONTINUE 

97 f4CPT ■ NCPT ♦ I 

99 LMC ^ NBWO ♦ 1 

99 C' I 

100 L FIX PRINT OUT ' 

101 L 

10? 00 15 NX « 1/ LMC 

103 NUM s LinN(NX) 

lO'i 15 PRlNT(NX) . INOEX(NUM) 

105 MXX;^ » NA ♦ flB 

I OS WRI TF( TryOliT/3) MCPI/NXXX/ I NOE X ( I GP ) / I NQE X ( J TP ) / ( pR I NT ( I) / I • 1/ LMC ) 

iOf 16 tONflNUE 

108 RFTlfKN 

1^9 C 

II :i L FORMATS 

III I 

112 1 Ft3RMAT( '-S • NUMBER »/5X, ♦ L I NK S S A X / « E L E MF NT S » / 5 X / » P A TH « ) 

m 2 rn«MATiix/' f'As trouve »/3I5) 

lU 3 FMrfMATl' MX, U/OX, I2/3X/ I 5/ S M5>3X,6( 7( r> ) ,/33X) ) 

115 END 



ERIC 



3GV 
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I INlt^E^* rUNC I I UN NUlR«G#ICl#NBLC#ILC#NBCl#lX#NnM#» ASM 

^ Irt^'LlCIT IfiTEGtR <A-Z) 

k INffCtft 0<^U,^0)# L5T(50) 

5 C 

^ M » 0 

f IBl « 0 

V IF iCM# IIC) *NE, MDLG) CQTO I 

IJ IBt « IBl ♦ I 

11 I ST ( IBI ) « I 

I? 1 crrunjE 

M in IBI .IE. 0) RETURN 

U DJ ? IM/NRN 

15 IF (G( ICL / n tNE, NBCL) GOTO 2 

16 |F(LA5T ,EQ. 0) GOTO 5 

I? IF(C(LAST,I) .NE. I) GOTO 2 

IB 3 DO 3 K » I / I B I 

H 3ir(l .EQ. LST(K))GOTO ^ 

20 2 CO^UINUE 

21 IX e I 

22 RETURN 

23 ^ NOTr » LST(K) 
2^ RETURN 

2 5 tNO 
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• NUT ICE 

• ALL HlCiUb RESERVED* NO PART OF THIS PROGRAM MAY BE SOLO/ 

• PEPfiOnJCEO, STHPEO IN A RETRIEVAL SYSTEM, UR TRANSMITTED 

• IN F IKM OP BY ANY MEANS* ELECTRONIC, MECHANICAL/ 
¥ PMDrocQPrlNC, REUJRDINC, OR OTHERWISE, WITHOUT THE 

• PRIUR PFR^ISSION THE 

• -INIVFRSITY OF DAYTON RESEARCH INSTITUTE. 



PROGRAM AUTHUR; DAVID R. YInGLINC/ JR. 
04TE8 DECEMBER 31, 1976 

THIS PROGRAM CONVERTS A SEQUENTIAL ACCESSED EnnOR 
CRFATgi) PILE INTO A DIRECT ACCESS FILE FOR 
FULl TEXT QUtRlES 

IMPLICIT INTEGER (A-Zr 

THE ENGLISH lEXT CAN BE 60 CHARS. ON ONE LINE 
AND UP TO TEN L INES 

COMMOM TTYIN, TTYOUT/ N, TOTAL* POS/ K, LENGTHUO)/ PACKED(200) 
DAIA i\J?/\Ui/ 

SYSTEM OEPFNUENT INITIALIZATIONS 

THE DIMENSION OF ARRAY »*PACKED** HUST BE 
CHANGED TO ♦'NWORDS" 

EACH ERCniC OR BCD LETTER USES X BITS 

FOR IBM 3f>0/370 X^9 
FOP CnC 6600/6<t00 X = 6 

NWDRDS IS EQU TQ 60 CHARACTERS tUNE LINE) DIVIDED BY 

NUMBER (IF CHARACTERS ABLE TQ BE STORED IN ONE WORD (NCHAR) TIMES 

TFN (FJR TEN LINES). 

NCHAR > NUMBER PF BITS PER MACHINE WORD (NBITs) DIVIDED 
BY -X**. 

DIMENS I'JN CAR0(6O) 

TTYp^ ,1 

TTYHUT r 

NBITS - 37 

X ' 9 

NC><4W T NRITS / X 

fiW'JviDS ' (^J / NCHAR) ♦ 10 

TOTAL " NW^lROS ♦ 10 



DFMNE 0|(<r I ACCESS FILE 



60 - PECOIZC if 1« 3^ BITS) • 

6; : 

6) c 

6t) : coNSTftj: ' F ur 

6 7 I 

6 6 I AH r)Jl r ( NC»'ARWHUKUS#CA«0) 

67 C 

I N IS FH »iJM«fR UF TEXr RECHROS ^MQ FIRST RUIJRD UF FILE 

71 I 

7^ WR I TE ( 8 « M N 

71 L 

7^ C SEE IF USER HANTS TO tMSPLAY ELEMENTS 

7S C 

7b I TF ( T TVpijT; I J 

77 PEAo (rry|N/^) reply 

78 |F(REPLr .EQ, tUP) CALL SHOW 

79 CALL E< I r 
8D C 

Bl C SATISFY THE COMPILER WITH STOP STATEMENT 
C 

B3 STOPlllll 
B<> C 

8S X FORMATS 
Bf> C 

87 I FORMAT! IHO/WHPERHF ILE HAS BEEN CREATED FOR FULL TEXT QUERlES/lH , 

8 9 ♦UMSMOH(Y/N) ?) 
39 I FDRMATlAl) 

90 ENO [ 



3 i \> 



ERIC 



89 



I SU'*H')Ul| U O'll T (NCHAR/NWUROS/CARO) 

I C 

3 C THIS S'JRPJiJTlNt CRIATES THE RANDOM TEXT F!LE 

<i C 

S IMPLICIT iNTf-CER 

t CDMMflN T ry IN, TTYOiJl,N,TOTAL/PU'wSTART,LENGTH( 10)/PACKEO(200) 

7 LLHilCAL Flaw 

H OATA R/lHR/, E/IHE// L/IHL// SLANI/IH/// ONE/lHl// TW0/IH2/ 

1 P^fA fH><£FMM3/ 

10 L;MFNS!1N rARDUu) 

11 c 

I? START = I 

11 ' PO!) « 0 

l<i K AT. * .FALSE . 

lb c 

17 C ZAP OUT LF.NCTH INDICATORS 

IP C 

n no : 1 . 1 , 10 

2n LENGTH( I ) a 0 

21 I co^unuE 

2^ C 

21 : FnRTRA.M UNIT 10 POINTS TO SEQUENTIAL TEXT FILE 

2<i C 

I WEAOl \0, lO#ENO-3) CARD 
;h IFICARD(I) .EQ, SLANT) GOTO ^ 

27 C 

2fl : NOT A CONTRTL KEYWORD/ PACK MORE TEXT INTO "PACKED" 

2 9 r. 

3D CALL PACKINWURDS/NCHAR,CARD) 

31 noU) e 

3? C 

31 L ^EE IF FLAf. IS OfJ/ IF SO/ WRITE CURRENT "PACKED" AND PROCESS 

3^ L SlANT RECORD 

3^ ^ IFC.NOT. FLAG) GOTO 5 

17 C r 

3H C WRITE RECORD TO FILE ACCORDING TO LOCPOS (LOGICAL POSITION) 

19 C 

CALL WRITE(LUGPDS/NHDRDS) 

C 

C PROCESS SLANT RECORD 

I 

5 LHOPQS « 0 
^S I F (c ARD( 2 ) .NE , R) GOTO 6 

<»s : 

4 7 C 
<i ' L 

C THIS IS A^PrLATIONAL C L AUS F / / WH I CH HNE ? 

•J*) C 

5 IF {r^^l^: 3) .fq, rnf ) lOonus • ? 
■5 ; ir (TARDI 1) .f 0, Twfu LTJcnos ■ 3 

IF(CAPP(1) .l:), rMRFE) lOOPdS « ^ 

O ^ JL 90 



6^ IMu AJO. : ) .'^K f ) C{JTO s 

6S mCARDn^ U IDGPDS » N ♦ 5 

6 7 mi rr.P r, .L T , ^) OllTU 9 

68 r LA^ » , T« IE . 

. 71 r If VU)L') BE AH For CARD 
7; ( 

7^ 8 Ir(CARJ(^) AQ. SLANT) RETURN 
7<. C 

C ITS r^uT A'iYTMlNO RECOGNIZABLE 

7'. L 

7 a J nR n E ( nYDDT, n ) 

M ^1 wRl TF ( Tr> Jljr/U) 

8D CAH FMT 

81 : 

^ B2 : ISSiiF ST )P SUrtHENT fl) SATISFY COMPILER 

e-i c 

B!> : MmHA TS 

AM 10 f ') ^MAT ( ^.4A I ) 

II rtlJ'*AT( IH0.^^3M##*M1SSING " / / CARD AT END OF fFXT FILE***) 

90 FfJMM W( lH'j/^5H***ERR0R*t* INVALID SLANT KEYWORD I UT DUNTEREO/ 1 I #28 

91 ^HRE •)! T IFU FILE f U CORREC T / IH-^ 2 1H4.«*MAKE I f T ( H rU MATEO*** ) 

9; rn 




I 



ERIC 







<» 






c 




f 


^ 




/ 




Q 
0 




f 




\ ^ 




1 \ 


f 

I 


1 c 




I .1 




I 




1 i: 
1 » 


c 


I t» 




I / 




I i 




I 1 


L 


2 J 


c 


21 





2 1 



THIS SUBROUTINE WRirrS OUT ••PACKED'' AND •'LENCrH'^ liMfO 
TMF OHFfT ACCESS FILE 

IHP( KIT iNftCER ( A-Z ) 

CQ^'^PN TTYrMTYOUT,N,TOTAUPOS#STARTAENCTH(lO)#PACKED(200) 

IFILUGPTS .L^ S) GOTU I 

THIS IS AN ELEMENT'S lEXT 

« N ♦ I 
r^Hl rp D'JTO F IlE 

I wRl TE ( R • LOnP'.tS) tLENOTHIDjr IM#TOTAL) 

V S T A R T ' I 

ZAP (JUT LENCiTH INDICATOK 

DO 2 1 M # 
LE'JO T^f( 1 ) 3 0 
^ C a <T I NUE 

RE Turn 

END 



ERIC 



C)9 



4 

^ - M AS iAir CHARAlTtRS AS POSSIBLE iN^n OM^ /lAri||ht WQRO 

' »'*C lI'US OF l£XT iJN WORD DQ^NPRV P<T i "('ACKCn" 
H I 

I'J IH» I IC I T I'iTFGE^ (A-Z ) 

I i a]*^Mj'< P'>HyuU r>Nj TOTAL #POS. ST ART, I ENGTM( i')), PACKED (200) 

M PA? A BL ANK/ IH / 
U C 

n I F IGiJRE JUr LbNGTH 

i*^ 

1 7 PtlS » P3S ♦ I 

l> IFICARDIM - I) .NF. BLANK) GOTO 2 
\ cnrJTisUE 

^/ I - 5'> 

2 ^ ^ L E N ' 6 1 - ! 

C 

C N )W CiJHES THE TRICKY PART. RE-READ INFQRMATImJ TCJ PACK, 

^'^ WITH CIC EXTENDED FUPrP/^N USE AN ENCDOfc STATEMI 'JT 

?f C OTHtf? COHPUTFRS USE CORE TO CORE I/O OR A SCf^ATCH 

C I/O UNIT, FORTRAN UNIT ^0 FOR MY SPECTRA 70 IS VIRTUAL MEMORY 

27 t 

33 CORE » 20 

3 1 »r«lNO CORE 

3? V.PITEICTPE.3) ( C ARO ( ! ) / I I / L E N ) 
REHIND CORE 

c 

3^ C FIGURE TOT Lt;>iGTM OF PACKED LINE 

I 

-W LENGTHCPPS) « (lEN - 1) / NCHAR ♦ I 

EN^ - START ♦^Utt<GTH(POS) 

PFADICHRF ) (P^ACKE()( I )/ I -START, END) 

^1 START . START ♦^FNGTHIPHS) 

^ I p [ T ij a s 

■ [>F SJRL TO fHfCK FORMAT N 
^ I 

''^ ^ ^ ^r { ^'^^ \ ) 
ro^^MAT ( i ^A'l ) 

^ / t NO 



37; 



ERIC 



^ C 

^ L THIS SURRUDTINE SMIJWS Tmf ELEMENTS AS THFY MI(;ill 

^ ^ APPEAR r>j«p^(. AN ISH SESSION. THIS IS HEl.PFUL 

^ ^' OrT£MM|»UNC THF PEADABIllTY OF THE TEXT 

S C 

7 ir IT INTEGER ( A-Z ) 

. « (O'MiN ITyin, TTYOUr^ N/ T(1TAU PHS* START^ I f ' iC ( 1 0 ) ^ OUM { 200 ) 

^ DATA rUP / I ^ I 

CI)MM,1N /-"^Hn^B/ RHI60)# L l( 160)/ 1r2( 160). I2i\t^n), R^(l60) 

lie 

l^ r coMMMN '^snnwo- a.no vector ••8luck»' are equ and ./ill 

13 i CO'HAIN IHr TEXT 

u c 

LOGICAL ALLS 

\^ OIM^NSnN RLHCK(650»f NUMS(2) 

n tQ'ilVUENCE (RLnCK,Kl-)/ ( E L I / NUMS < I) ) / I EL2/Nins ( ? ) ) 

IB FIND (8».M 

n AILS " .raisfe. 

2 0 I L I ' 

C READ IN RELATIONAL CLAUSES W2> ♦ 3 

t 

^'> PEA0(8'?) (RHD^IM/TDTAL) 
PE^DIS' ^ ) (R2( I TOTAL) 

2' KEAO(e»^) <R3U )f I«WTOT AL) 
^8 C 

Z'? ^- SEE IF vJSER rtANTS TU DISPLAY ALL ELEMENTS 

30 r 

31 ^RI TE( TTY0l»T/9) 
3? READ (TTYIN.IO) REPLY 
33 IFtREPLY .EQ. YUP ) CUTO 2 
3<» C 

3"^ C SEE WHICH FLLMENTS THE USER WANTS TO SHOW 
3^ L 

37 1 »-RITr ( TTYOUTf S) 

3n CALL Gfc TNU^(r*'JM5..? ) 

3^ IFtELl 0 .OR. EL2 .FQ. 0) RETURN 

IF(ELl .IE. N ,AND. EL2 .LE. N) GOTO B 
ir(ELl .GT. N) WR I TE ( TTYnUT/ I I) ELI 

^^ IF(ELr> .G'T. N) WRTTE(TTYUUT/U) EL2 

COTf) ; 
« I I * EL I ♦ ^ 

4 5 r iND ( ft • 1 n 

4^ !/ • EL*^ ♦ 4 

4 ^ RE AD( B ' I 1 ) ( L I { I) ^ I -l/TUTAL ) 
48 PEAD(8'I,M U2( I ), I« WTflTAL ) 

[IM-SET » 0 

5 1 n =• 0 

5/ w - 0 

5 « UU 4 J - W 10 

5^ IMRL'IC^IJ ♦ UKSrT) .EQ, 0) GIHO 4 

55 I [^GTH * At^)CK( J f nrrsET) 

5 ^ I 1 ^ I ♦ I 

/ I I I ♦ I fNGTH - I 

O 59 nRl rn Tri'M'iT/ n (bli)ck(c ♦ nrrsFT ♦ io)/C«Ti»i/) 
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5 > H CUf*J lN.»t 

6? i^rfsfr . ijrfsn ♦ tgial 

6J IFC.N'IT. ALLS) CQTU I 

6) 

6 f I I ' I L ? ♦ I 

6^ CL^ » U I ♦ I 

6b U (f I I .Cr , H) K( TURN 

6? IF l[L2 .CT , M) EU ■ I 

6H All 5 « • TR IE • 

67 CifjTn 8 

70 C 

71 C ^ 

c f o>^MArs 

71 C 

7^ b fU><MATllM ,^SH5MUW WHICH TWO ELEMFNTS t) 

7S 6 rOPMAT(>i5) . 

7S 7 f 0«MAT ( IM , ) ( 

7/ 9 rnRMA T ( I H- , 2<»HSHDW All E L E ME NT S ( Y / N ) 7) 

7B |U FL1«MAT(AI ) 

fl II ro^MATC nH^t^EKRnR**^, 15#2'»H Nl- FOUNO ON QUERY PILE) 

BD LNO ^ 
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I. Sii>^« iwr I l£ M TNUM{ ARRAY>fn 

^ ^^^^"^ SUJ^RjijTlNL WILL READ •'N" UNSIGNED INTEGERS Troh 

- ^^♦t* TfRMlMAL TYPED IN A FREE FORMAT AND STORE THFM Hi 

V. •'AR«Ar' 

f> C / ^ . 

7 C rtRirTEM RY! OAVID R. YINCL|NG# JR, 

^ ^ DECISION SYSTf MS LAB 

' ^ ENGINEERING AND PUBLIC POLICY GROUP 

UNIVER5I fy OF OAYTUN 

\\ DAvTUN/ OHIO <,5<,69 

n C 

U MPl IC IT INTEGER (A-Z) 

li"* CU^HJN TTyIN/ TTYUUT/ N/ TOTAL/ POS/ START, LFNG(10)> 0UM(200) 

lC» OlHFNSlaN ARRAV(l), BUFFER(BO), NUMSdO) 

W , f^ATA NUnr / iny^ p^l, ^H^, iH3, 1H<», IH5, 1M6> IH7/ IH8, 

18 C'ATi BLANKMH /, CtJMMA/lH// 

2 J 1)1) B I'WN 

21 A R P Y ( 1 ) - 0 

?i 8 to n I NtiF 

2 * ; 

I KE Af)( r T Y |N^200) BUFFER 

27 I'llHFR X 0 

2H f 

IMRUFTFRIK) ,EQ. BLANK .OR. BUFFER(K) .EQ. COMMA) GOTO 3 
3^ < KQU^Jl) / CH.^PACTER/ SEE IF IT»S A VALID NUMERIC 

V. II - J I 

W 1 F ( BiirKFR ( K ) .NT • 'nUMS{ J) ) GOTO k 

H i 

3'^ I ITS A f^tj'^BFR/ ADO IT tO PRESfc'NT SUM 

M ARRAYIL) • AKPAY(L) ♦ (M ♦ (lO^^POWER)) 

P'lHfR - PUWER ♦ I 

cnTp 

^ CUNT I N'JF 

C 

C CriHF ME»F IF CHARACTER ^^flUNO WAS NOT NUMERIC 

fiR I fF I T ritjWJ, 1001 

rnrn i 

•^l C FllUNf) A '1FIIMITFR/ SEE IF END OF A NJMOFK 

3 I M ARO Av { I ) .Ey . 0 ) GOTO 2 
I ' L - I 

IT (I .! J. ')) GOTO b 
5 *) A R W A y { 1) ^ D 

4) 5H 2 (.O'^TlNlir 
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59 .L 

6:) C MA'kf sort NUMBtR(S) IS/ARE LESS THAN 999<>9 SO 

61 C 0(]N»T txrtEO 15 FORMATS 
6^ C 

6^ 5 no 6 I M #N 

t\ iFlARRAfin .CT, 99999) GOTO 7 

65 6 CONT INUE 

^^ RETURN 
67 L 

69 L LRPUR MFSS^CE 
61 C 

73 7 wR I TE ( T TyUUT/ lOl ) 

71 Oi)Tn I 

?? L 1 

7^ C fORMATS \ 
7^ C 

75 100 ruRH;\T( 37H-***ERRaR*** INPUT NOT NUMER1C--RETRY > 

7«) lOl FO^^AT ( l^H-***ERRaR*** NUMBER(S) TUO L ARGE'-'RE TRY ) 

77 ^00 FDPMATtaOAl ) 

re ENO 
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Distri bution 



Copy No . 

1 - 6 Mr. Walter Bogan, Director 

Office of Environmental Education / 
400 Maryland Ave. S- W. 
FOB ^6, Room ?0?5 
Washington, C, 20202 

7-8 Mr. George Coates 

Office of Environmental Education 
400 Maryland Avenue S. W. 
FOB #6, Room 2025 
Washington, D. C. 20202 

9 Dr. Alexander Christakis 

University of Virginia 
Engineering Science and Systems Department 
Room 234 A & M Building 

10 Bro. Raymond Fitz 
Office of the President 
University of Dayton 
Dayton, Ohio 45469 

11 Ir. H. Grant Roodell 

Department of Environmental Sciences 
Clark Hall 

University of Virginia 

12 Dr. R. W. Hou<;e 

Box 618R, Station B 
School of Engineering 
Vancicrbi It University 
N.^shville, Tennessee 37235 

13 Dr. Robert Waller 
Department of Business 
University of Northern Iowa 
Cedar Falls , Iowa 5061 3 

14 Office of Sponsored Programs 
M(idi^»on Hall 

University of Virginia 

15 - 24 J. N. Warfield 

Department of Electrical Engineering 
Univerr:ity of Virginia 
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MS E. H. Pancake 

Science/Technology Information Center 
Clark Hall 

University of Virginia | 



RI.E5 files 

Professor Robert Stake 
CIRCE 

College of Education 
University of 111 inois 
Urbana, IL 61801 

Dr. Tom Hastings 
CIRCE 

Colleqe of Education 
University of Illinois 
Urbana, IL 61801 

Dr. Bcla Banathy 
Far West Laboratory 
1S55 Eolsoir. Street 
San Francisco, CA 94103 
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UNIVERSITY OF VIRGINIA 



School of Engineering and Applied Science 

Thr? University of Virginia's School of Engineering and Applied bcience has an undergraduate 
ffuollment uf .^ppnuimatetv 1 .300 students with a graduate enrollment of approximately 500. There are 
12b faculty members, a majority of whom conduct research in addition to teaching. 

Research is an integral part of the educational program and interests parallel academic specialties. 
Thf?se r.inge from the classical engineering departments of Chemical, Civil, Electrical, and Mechanical and 
Aerospace to departnients of Biomedical Engineering, Engineering Science and Systems. Materials 
S<:ience. Nuclear Engineermg and Engineering Physics, and Applied Mathematics and Computer Science. 
In tKidition to thesa departments, there are interdepartmental groups in the areas of Abtomatic Controls and 
AppUed Mechanics Alt departments offer the doctorate; the Biomedical and Materials Science 
Departfnents grant only graduate degrees. 

The Sl:^ux)l of Engineering and Applied Science is an integral part of the University (approximately 
1 b30 full time faculty with a total enrollment of about 16.000 full-time students), which also has 
professional schools of Architecture. Law, Medicine, Commerce, and Business Adnfiinistration In addition, 
the College of Arts and Sciences houses departments of Mathematics, Physics, Chemistry and others 
relevant to the engineering research program This University community provides opportunities for 
interdisciphnary work in pursuit of the basic goals of education, research, and public service. 
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